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INTRODUCTION 


PURPOSE OF THE ASSEMBLER 

The assembler translates a source program 
coded in IBM System/360 Disk Operating 
System Assembler Language into a relocatable 
machine language object program. It per- 
forms auxiliary assembler functions desig- 
nated by the programmer. 

Object programs are produced by the 
assembler in the format required by the 
linkage editor. The linkage editor pro- 
duces core image modules which are execut- 
able under the control of DOS. 

Several output options are available for 
the assembler. The programmer specifies 
the device for the object modules, etc. He 
may request an assembly listing, a cross- 
reference table of symbols as part of the 
listing and the insertion of a special 
source symbol table in the object module to 
facilitate AUTOTEST. See Appendix A for 
details. 

The assembler is a language translator, 
one of the processing programs of the IBM 
System/360 Disk Operating System. It can 
operate on IBM System/360 Models 30, 40, 

50, 65, or 75 with at least 64K storage. 

It requires only the standard instruction 
set. 


SYSTEM AND I/O REQUIREMENTS 

These requirements are divided into three 
categories: internal (or main) storage, 

external storage devices (data sets) , and 
system services. 


Main Storage 

Main storage requirements include the mini- 
mum requirement of the DOS Control Program. 
In addition, at least 45,056 bytes of con- 
tiguous core storage must be available for 
the assembler. Additional core storage 
will be used if available. 


Data Sets 

The required data sets include one (SYSRES) 
containing the operating system components, 
which includes the assembler; three utility 
data sets (SYS001, SYS002, and SYS003) ; one 
input data set (SYSIPT) ; and a data set 
(SYSSLB) containing system macro definitions 
and source coding to be called for through 


COPY assembler instructions. SYSSLB is 
kept on SYSRES . There are three optional 
output data sets as follows: 

1. Print data set (SYSLST) . 

2. Compile and go data set (SYSLNK) . 

3. Punch data set (SYSPCH) . 

See Figure 1. 


SYSRES . This is a Direct Access Storage 
Device (DASD) resident data set which con- 
tains the control program and other opera- 
ting system components. The assembler is 
kept in the Core Image Library on this data 
set. SYSSLB and SYSLNK are also kept on 
SYSRES. 

SYS001, SYS002 , SYS003. These three utility 
data sets are used as intermediate external 
storage. Three DASD logical extents, 
three magnetic tape units , or any combina- 
tion of the DASD and tape data sets may be 
used. The use and format of these data 
sets varies from phase to phase. 



Figure 1. Assembler Data Sets 
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SYSIPT. This is a DASD, tape, or card 
reader resident data set containing the 
source text to be assembled. The source 
text (also called the text stream) consists 
of control text, programmer macro defini- 
tions, and the main program (also called 
open code) . The format is assumed to be 
80-byte record card images, unblocked. 

SYSSLB . This is a SYSRES resident data 
set containing system macro definitions 
and source text which may be COPYed into 
programmer macro definitions , into the main 
text of the program, or into system macro 
definitions. It consists of blocked com- 
pressed 160-byte records. 

SYSLST. This is a printer, DASD, or mag- 
netic tape resident data set containing 
output text for printing. It consists of 
121-byte unblocked print images. The first 
byte is an ASA control character. 

SYSPCH . This data set contains the output 
text for punching. It may be punch, DASD, 
or magnetic tape resident. It consists of 
unblocked 81-byte card images. The first 
byte is an ASA control character. 

SYSLNK . This is a DASD resident data set 
containing the same output text as SYSPCH, 
but is used as input for the linkage editor. 
It consists of blocked 330-byte records 
with a 2 byte header. 


System Services 

Several system macro instructions are used 
in conjunction with data and storage manipu- 
lations and program control transfers dur- 
ing the seven phases of the assembler. 

These macros are briefly described in 
Appendix C, and detailed information is 
given in the DOS Supervisor and I/O Macros 
publication . 


THEORY OF OPERATION 

The assembler has two major functions: 
macro generation and assembly. See Figure 
2 and Table 1 for a summary of program flow, 
and program organization. 

The generator portion expands macro 
instructions to one-for-one statements and 
performs conditional assembly. Phases 
FO , FCOM, FIN, FI, F2 , and F3 comprise the 
generator portion. 

The assembly portion converts the one- 
for-one source statements and expanded 
macro instructions into machine language 


Table 1. Logical Organization of the 
Assembler 


PHASE 

FUNCTION 

FO 

Master Root Segment - utility data set system 

I/O macros 

Macro Generator I/O routines 

FCOM 

Macro Generator Communication area 

FIN 

System I/O macros for SYSIPT and SYSSLB 

FI 

Program initialization 

F2 

Initial statement scan 

System and programmer macro definition editing 

F3 

Macro instruction generation and merge 

Conditional assembly 

F3E 

Macro generation error bypass 

RTA 

Assembler control table 

System I/O macros for SYSLNK and SYSPCH 

Overflow file I/O routines 

F7 

Address assignment 

Symbol processing 

Literal processing 

FI 

External Symbol Dictionary output 

F8 

Expression evaluation 

Program output 

Relocation dictionary build 

FPP 

Cross-reference, relocation dictionary, and 
diagnostic processing and output 

ABT 

Assembly error termination 


instructions and constants and produces a 
relocatable object program. These functions 
are performed by Phases RTA, F7, FI, F8, 
and FPP . (There are no F4 , F5 , or F6 
phases . ) 

There are two other phases . Phase F3E 
is called if an error condition requires 
bypassing macro generation. Phase ABT is 
called if an error condition requires 
termination of the assembly. 


Macro Generation and Conditional Assembly 
Phases 


The macro generation and conditional assem- 
bly portion of the assembler requires two 
passes over the source text. 

The first pass (in Phase F2) scans the 
source text, determines the syntax of each 
statement , and produces edited text records 
suitable for actual macro generation and 
conditional assembly. 

Variable symbols , sequence symbols , one- 
for-one statement names , macro instruction 
names , and symbols appearing in macro in- 
struction operands in the text stream are 
collected and placed in either a global 
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Figure 2. Program and I/O Flow (Part 1 of 3) 
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PHASE F3 


SYS001 


Subsetted global 
dictionary 
Open code local 
dictionary 
(Macro local 
dictionaries) 


CORE 



(1) Macro editing 
and merging 

(2) Conditional 
assembly 


PHASE F7 


SYS002* 


Text stream 
input to 
F3 



SYS003 

'Cross-refer- 



Figure 2. Program and I/O Flow (Part 2 of 3) 
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Figure 2. Program and I/O Flow (Part 3 of 3) 
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dictionary or in one of several local 
dictionaries, depending on the type of the 
symbol and the context. Extraneous infor- 
mation is removed from these dictionaries, 
and subsetted dictionaries are produced 
for the source text, for each system and 
programmer macro used in the source text, 
and for global information. Dictionaries 
and edited text records are briefly des- 
cribed in Dictionaries and Edited Text 
which follows. Complete descriptions are 
in Appendix B. 

The second pass (in Phase F3) performs 
the actual macro generation and conditional 
assembly using the edited source text, 
edited macro definitions, and subsetted 
dictionaries created during the first pass. 
One-for-one edited text is produced for in- 
put to the subsequent -assembly phases. 

Phase FO - Master Root Segment 

Master Root Segment . This portion of Phase 
FO contains the system I/O macros (DTFs and 
I/O logic modules) for SYS001, SYS002, and 
SYS003. It also contains linkage to the 
abort phase in case of EOF or data check on 
the utility files. The master root segment 
remains in core for the entire assembly. 

Macro Generator I/O routines. This portion 
of Phase FO contain READ, WRITE, CHECK, NOTE, 
POINT, POINTS, POINTR, and POINT W routines 
for the utility files. They link to the I/O 
logic modules and the DTFs. 


Phase FCOM (Macro Generator Communication 
Area) 

Phase FCOM contains common constants, a 
translate table, and a communications work 
area for all macro generator phases. 


Phase FIN (SYSIPT and SYSSLB I/O Logic) 

Phase FIN contains the I/O logic modules and 
the DTFs for SYSIPT and SYSSLB. 


Phase FI (Initialization and Assignment) 

Phase FI performs the primary initialization 
for the macro generation and assembly 
phases. The operating environment is 
established by opening data sets for 
utility, input, and library functions and 
by initializing dictionaries and common 
areas . 


Phase F2 (Statement Scan) 

Phase F2 scans the text stream for pro- 


grammer macro definitions, the main pro- 
gram, and system macro definitions. It 
produces edited text for the main program 
and for each macro definition for input to 
Phase F3. Phase F2 creates the global and 
local dictionaries and subsets them for 
Phase F3. Some syntactic errors are 
detected and flagged for subsequent error 
processing. If a macro generation abort 
condition arises, Phase F2 passes control 
to Phase F3E, a substitute version of 
Phase F3. 


Phase F3 (Conditional Assembly and Macro 
Generation) 

Using the edited text and dictionaries 
produced in Phase F2 , Phase F3 generates 
one-for-one edited text statements from the 
macro definitions and performs conditional 
assembly. This output serves as input to 
Phase F7, the first of the assembly phases. 


Assembly Phases 

Phase RTA - Root Segment A 

RTA is the root segment for the assembly 
phases. It contains the Assembler Control 
Table (a common communications area) , the 
DTFs for SYSLNK and SYSPCH, and the IOCS 
logic module for SYSLNK, SYSPCH, and SYSLST. 
RTA also contains a translate table and I/O 
routines to read and write overflow files. 


Phase F7 (Initial Assembly) 

Phase F7 processes symbols and literals, 
builds the symbol table and the external 
symbol dictionary, and assigns relative 
locations to all statements in the text. 

The symbol table contains the definition 
(name and attributes) of every declared 
symbol and literal. Only one symbol table 
is constructed if the allocated core can 
accommodate the entire table. If necessary, 
the external symbol dictionary, except for 
two segments, will be stored on SYS003 to 
make room in core for the symbol table. If 
there is still not enough core, construction 
of the symbol table is suspended at the over- 
flow point, and all input statements are 
processed with data from the table (when 
applicable) . This symbol table is then dis- 
carded and a new symbol table is built with 
symbols and literals that were not included 
in the eliminated table. This procedure is 
repeated as long as overflow conditions 
arise. Each completed symbol table is fully 
utilized and eliminated before the next one 
is built. Expressions appearing in all 
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Macro Generator Phases 


statements which require previous defini- 
tion are evaluated in the process of loca- 
tion assignment, and a table of cross- 
reference entries is built for all symbols 
which are defined and/or referenced. 


Phase FI (Interlude) 

Phase FI writes the external symbol 
dictionary on data sets SYSLST and SYSPCH 
and/or SYSLNK, and constructs the literal 
adjustment table for use in Phase F8. If 
the external symbol dictionary was written 
on SYS003 during Phase F7 because of ex- 
cessive core occupancy by the symbol table, 
the entire external symbol dictionary is 
read back into main storage. 


Phase F8 (Final Assembly) 

Phase F8 completes the symbol processing 
on all operands using the last (or only) 
symbol table created in Phase F7 . USING 
tables and the relocation dictionary are 
built, all address expressions are evalua- 
ted, and the operand addresses are con- 
verted to base-displacement format. Finally, 
the assembled text is written in relocatr- 
able object program format on SYSPCH and/or 
SYSLNK and in program listing format on 
SYSLST. 


Phase FPP (Post Processor) 

Phase FPP formats and writes the relocation 
dictionary table. If requested, the cross- 
reference entries are sorted, and the 
cross-reference list is prepared and 
written. Assembly statistics and diagnostic 
messages are also prepared and Written. 

Phase FPP also writes the END card. 


ASSEMBLER PHYSICAL ORGANIZATION 

The assembler is organized as Core Image 
Library phases and as Relocatable Library 
load modules. This organization — includ- 
ing overlay structure, typical load addres- 
ses, and external symbols -- is illustrated 
by the Linkage Editor map in Appendix D. 
This map also correlates the logical organ- 
ization of the assembler, described in 
this manual, with its physical organization 
For more information on assembler organiza- 
tion, see IBM System/360 DOS System Genera - 
tion and Maintenance (Form C2 4-50 33) . 


The Fl, K2 , and F3 routines link together 
through address constants located in the 
Macro Generator Common Area. They use 
standard DOS/360 linkage conventions. The 
macro generator phases do not have any 
overall register usage conventions. Regis- 
ter usage and linkage are described in the 
comments of each routine listing. 


Assembly Phases 


Program Levels 

In order to establish a uniform method of 
communication and to control flow between 
the phases and phase routines, the assem- 
bler phases are structured on three levels: 

• Level 0 - Phase initialization, storage 

allocation, mainline control, 
phase call, and DOS interface. 

• Level 1 - Functional routines. 

• Level 2 - Common subroutines and common 

tables . 

Functional routines are assembled as 
independent control sections with a single 
entry point and a return to mainline con- 
trol. Functional routines do not call 
other level 1 routines. Any communication 
required between functional routines is 
through mainline control and the common 
table area. 

Common subroutines are also assembled as 
independent control sections. 


Assembler Control Table 

Linkage between mainline control, function- 
al routine, common subroutines, and common 
tables is accomplished through the use of 
the Assembler Control Table. The location 
of the Assembler Control Table is always 
available to all levels of routines and sub- 
routines through the general purpose regis- 
ter ACT. 

The Assembler Control Table is divided 
into five parts: 

1. Mainline control/functional routine 
linkage/return algorithms 
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2. Functional routine pointers 

3. Common subroutine pointers 

4. Common table pointers 

5. Switches 


Each of these five sections is in a fix- 
ed location with respect to the ACT pointer, 
and each element in a given section is in a 
fixed location with respect to the start of 
that section. A central dimensioning deck 
of EQU cards is used by each control sec- 
tion to symbolically reference the Assembler 
Control Table. 


General Register Assignments 

General registers 3-15 are referenced sym- 
bolically by all assembler subprograms. 

The equate cards are described in Table 2 
and in the paragraphs below. They are in- 
cluded in all Control section decks to pro- 
vide the initial assignments for general 
register symbols. 

ACT (Assembler Control Table) Pointer . This 
general register contains the absolute 
starting location for the Assembler Control 
Table. This register is set by the control 
routine during phase initialization and re- 
mains set for the duration of the phase. 

ACT should be considered as a read-only 
register for the use of all routines and 
subroutines and as a base register for 
Assembler Control Table references. 

FRB (Functional Routine Base Register) . 

This general register contains the base ad- 
dress for the current functional routine. 

FRB is set by the control routine and is 
used to link with functional routines. The 
USING statement for each functional routine 
uses FRB as the second operand and the name 
of the functional routine's entry point as 
the first operand. 

FRB should not be used by common sub- 
routines or by functional routines other 
than in their USING statements. Functional 
routines do not link directly with other 
functional routines. Therefore, FRB re- 
mains intact during the operation of a 
functional routine. 

SRB* (Subroutine Base Address) . This gen- 
eral register contains the base address 
for the current common subroutine. SRB is 
set by the calling routine and is used to 
link with common subroutines. The USING 
statement for each common subroutine uses 
SRB as the second operand and the name of 
the subroutine's entry point as the first 
operand. 


SRR* (Subroutine Return Address) . This 
general register contains the address 
through which the current common subroutine 
returns to the calling routine. SRR is 
set by the calling routine with a BALR 
SRR, SRB. 


SP1*, SP2* (Subroutine Parameters) . These 
general registers are used to transfer 
parameter (s) between the calling routine 
and the called subroutine. SP1 and SP2 
are two contiguous registers beginning 
with an even register. If a parameter list 
exceeds the combined length of SP1 and SP2 , 
SP1 is used as a pointer to the parameter 
list storage location. 

GRX, GRY, GRZ (General Purpose Registers). 
There are no restrictions on the use of 
these general registers. They may be used 
by any level routine and are not saved/ 
restored by called subroutines and opera- 
ting system functions. 

GRA, GRB , GRC , GRP (Functional Routine 
General Purpose Registers) . These are four 
contiguous registers beginning with an even 
numbered register. Some subroutines could 
use these registers and restore them to their 
original value before returning to the cal- 
ling routine. The control routine is 
required to save and restore these registers 
for its own use when transferring control 
to a functional routine. 

Linkage Conventions 

All assembly phases routines link through 
the Assembler Control Table using standard 
DOS/360 linkage conventions. The exact 
linkage and the entry and exit points for 
each routine are in the routine listing 
comments . 


DICTIONARIES AND TABLES 

The assembler builds dictionaries and tables 
for its own use. Special facilities are 
used to enter new records and to access 
already stored records for adding or re- 
trieving data in these designated areas. 


*SRB , SRR, SP1, and SP2 may be used as gen- 
eral purpose registers by level 0 and level 
1 routines if care is taken not to conflict 
with subroutine calls. If a subroutine 
calls another subroutine, it is the respon- 
sibility of the first subroutine to restore 
SRB and SRR. 
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Table 2. General Register Assignments 


Symbol 

Tentative 

EQU 

Purpose 

Restrictions 

Remarks 

GRO 

GR1, 

GR2 

Absolute 


None 


ACT 

3 

Assembler control 
table pointer 

Read only register 


SRB 

8 

Common subroutine 
base register 

Set by calling routine. Used by S/R in 
USING statement 

Four contiguous regis- 
ters beginning with an 
even register 

SRR 

9 

Common subroutine 
return register 

Set by calling routine with BALR, SRR, 

SRB 

SP1 

10 

Common subroutine 
parameter 1 

Used to transfer parameters between calling 
routine and common subroutines 

SP2 

11 

Common subroutine 
parameter 2 

GRX 

14 

General purpose 
registers X, Y, and 

Z, respectively 

No restrictions. 

Completely volatile. 

GRX and GRY are 
two contiguous registers 
beginning with an even 
register. GRZ is un- 
predictable. 

GRY 

15 

GRZ 

13 

GRA 

4 

General purpose 
register A, B, C, and 

D, respectively 

Used by functional routines. Cannot be 
changed by common subroutines. 

Four contiguous registers 
beginning with ah even 
register 

GRB 

5 

GRC 

6 

GRD 

7 

FRB 

12 

Functional routine 
base register 

Set by control routine. Used by functional 
routines in USING statement. 


CRB* 

GRC 

Control routine base 
register 

Saved/restored by control routine when 
control is passed to functional routine 

(Sample applications) 

CRR* 

GRD 

Control routine 
return address 


*CRB and CRR are applications of the usage of general purpose registers for specific assignments. 


Hash tables, hashing algorithm, and chaining 
are the tools employed to accomplish the re- 
quired data manipulations in the Macro Gen- 
erator dictionaries and the Symbol Table. 

The assembler builds other dictionaries 
and tables in which the entries are not 
hashed and chained together. These are the 
External Symbol Dictionary, the Relocation 
Dictionary, the Cross Reference Dictionary, 
the Literal Base Table, and the Literal 
Adjustment Table. Their entries are stored, 
read, and written contiguously. 


See Appendix D for a complete discussion 
of dictionary construction methods and 
Appendix B for a description of dictionary 
and table formats . 


Macro Generator Dictionaries 

The macro generator phases use two types of 
dictionaries: a global (permanent) diction- 

ary and a local (transient) dictionary. 

See Figure 3. 
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Global Dictionary 


Machine operation codes 
Assembler operation codes 

Macro names'* (NOTE/POINTs) 

Global SET symbols 


Local Dictionary 


Sequence symbols-* — *-(NOTE/POINTs) 
Ordinary symbols 
Local SET symbols 
Symbolic parameters 


Figure 3. Dictionary Structure 


There is only one global dictionary. It 
is core resident, and it contains all 
machine and assembler operation codes, all 
macro names, and all global SET variables. 

There are many local dictionaries, one 
for each macro definition and one for open 
code (main text) . The local dictionaries 
contain sequence symbols, ordinary symbols, 
local SET symbols, and macro instruction 
parameters. Local dictionaries contain 
items needed for insertion into edited text 
and for macro generation during Phase F3 , 
and can overflow onto a utility data set 
during construction. 

Each macro local dictionary is subsetted 
at the end of the processing of the macro 
definition (Phase F2) . The subsetted dic- 
tionary is written on the SYS002 immediately 
following the edited text format of the 
macro definition. 

The global and the open code local dic- 
tionaries are subsetted at the end of Phase 
F2 . Subsetting sorts the dictionaries on 
the "a" pointer and removes flag bytes, 
symbolic names, big "A" pointers, and little 
"a" pointers. The global and main text 
local dictionaries are placed in core and 
remain there throughout Phase F3. 


Symbol Table 

The symbol table is a collection of the 
attributes of symbols and literals. It is 
actually composed of two tables, one for 
symbols and one for literals; however, the 
same physical storage area is used for both 
and the two different types of entries are 
intermingled in storage. 


The symbol table is a compact means to 
rapidly obtain the attributes of a given 
symbol or literal. The techniques used to 
store and retrieve symbol table information 
are hashing and chaining. 

The symbol table is in core during 
Phases F7, FI, and F8 . It consists of the 
symbol table proper and two hash tables , one 
for symbols and one for literals. The 
external symbol dictionary occupies the 
high-numbered portion of the alloted storage, 
but is output on SYS003 if the space is 
needed by the symbol table. 


INTERMEDIATE TEXT RECORDS 

The assembler creates several types of 
intermediate text records from text stream 
statements (SYSIPT) and from macro defini- 
tion and COPY code statements (SYSSLB) . 

These records are of three basic categories : 

• Source records 

• Edited text (logical) records 

• Error records 

The record formats are briefly described in 
the following paragraphs. See Appendix B 
for a complete description of them. 


Source Record 

Source records of statements from SYSIPT 
are carried from phase to phase without 
change. They are listed by Phase F8. No 
source records exist for macro definition 
statements and COPY code (from SYSSLB) until 
F8. Then, if the PRINT GEN option is on, 
they are generated from the edited text 
records . 


Edited Text Records 

Edited text records consist of the source 
statement fields to which work and code 
areas have been appended to map and describe 
the attributes of the fields. These records 
are created during the initial scan of the 
source text (in Phase F2) . The edited text 
records are modified during Phase F7 and are 
converted to object code by Phase F8. 

During processing, the edited text record 
for each statement is written on the 
utility data sets immediately following the 
source record for that statement. 
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Error Records 


following the edited text record of the 
statement for which the error is detected. 
Up to 16 errors can be detected for each 
Errors are detected by Phases F2, F3, F7 , statement. Error records are processed by 

and F8. A record for each error is written Phase FPP. 
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PHASE FI - INITIALIZATION AND ASSIGNMENT 


OVERALL OPERATION (FLOWCHART 2) 

Phase FI initializes the assembler. FI 
tests for a valid I/O configuration. If 
the configuration is not valid, it fetches 
the abort phase. It allocates core for 
the dictionaries and determines an optimum 
buffer size. Phase FI generates a hash 
table and associated global dictionary. 
Machine operation codes and assembler oper- 
ation codes are inserted into the global 
dictionary at this time. The first five 


data sets, SYSIPT, SYSSLB, SYS001, SYS002, 
and SYS003, are opened. The assignments of 
the three utility data sets within the 
assembler are determined by means of the 
ASSGN commands and job control statements. 
(See IBM System/360 DOS, System Control and 
System Services Programs ) . 

Phase FI reads the first card and, if it 
is not an ICTL card, branches to Phase F2 . 
If the first card is an ICTL card, it is 
processed. Another card is read, and FI 
then branches to F2 . 
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PHASE F2 - STATEMENT SCAN 


OVERALL OPERATION (FLOWCHARTS 3-7) 

This phase reads the input from SYS ITT and 
performs a syntactical scan of all the 
input. See Figure 4. Any undefined op- 
eration codes are assumed to be system 
macro instructions. A search of SYSSLB is 
made and the system macros are edited just 
as are programmer macros. In addition to 
scanning, Phase F2 inserts various items 
into appropriate dictionaries. 

Items present in the dictionaries are 
needed for insertion into edited text and 
generation by Phase F3 . 

When a dictionary is complete, it is 
subsetted and all items except those needed 
by Phase F3 are deleted. 


FUNCTIONS 

Phase F2 performs the following three 

logical functions : 

• Programmer macro definition scan and 
dictionary build. 

• Open code (main) text scan and dictionary 
build. 

• System macro definition scan and 
dictionary build. 



Text Stream Scan and Programmer Macro 
Editing 

Phase F2 reads source text from SYSIPT or 
from SYSSLB (if COPY instructions are 
encountered) . Programmer macro definitions 
must precede all source statements except 
ICTL, ISEQ , and listing control instructions. 

F2 translates each Source statement 
character from EBCDIC to an internal code 
(Appendix F) . This internal code estab- 
lishes a continuous collating sequence — 
to simplify syntactic scans — of all valid 
assembler language characters. Self-de- 
fining character strings and comments are 
not limited to valid assembler characters. 
Therefore, self-defining character strings 
are re-translated into EBCDIC when they 
need to be evaluated. 

After translating the statement, F2 
writes a copy if it is on SYS001 (See Macro 
Generator Record Formats in Appendix bT) 

This copy will be retranslated to EBCDIC 
by Phase F8 and put out on SYSLST. 

F2 now builds edited text from the 
source statement. (See Macro Generator 
Record Formats in Appendix B . ) 

F2 scans the statement again. If the 
statement has a name field, the name and 
its attributes are entered in the open code 
local dictionary or — if the statement is 
part of a programmer macro definition — 
in the local dictionary being built for 
that macro. 

F2 scans the operation field. If the 
statement is a prototype, F2 enters .the 
operation code — which is the name of the 
programmer macro defintion — in the global 
dictionary. If the statement is not a 
prototype, F2 looks up the operation code 
in the global dictionary. If the operation 
code is not in the dictionary, the 
statement is assumed to be a system 
macro instruction (located on SYSSLB) 
name and is entered in the global dic- 
tionary. 

F2 scans the operand field. If the 
statement is part of a programmer macro 
definition, symbols in the operand field 
(and their attributes) are placed in the 
macro local dictionary. For open code one- 
f or-one statements , only sequence symbols 
or local variable symbols in the operand 
field are placed in the open code local 
dictionary — ordinary symbols are not. 

For open code macro instructions , all 
symbols in the operand field are placed 
in the open code local dictionary. 
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SUBROUTINES 


F2 also checks statement syntax as it 
scans and it prepares an error record for 
each error encountered. 

The edited text record for open code 
statements is written on SYS001 immediately 
following the source record. If the 
statement is part of a programmer macro 
definition, the edited text record is 
written on SYS003. Error records are 
written after the edited text on both 
SYS001 and SYS003. 

After each complete programmer macro 
definition is processed, its macro diction- 
ary is subsetted — the entries are sorted 
on the little "a" pointer and the symbol, 
big "A" and little "a" pointers are re- 
moved. The dictionary is written on SYS003 
following the macro definition and the 
SYS003 NOTE/POINT location of the dictionary 
is placed in the global dictionary entry of 
that macro name. The dictionary in turn 
points to the programmer macro definition 
edited text. 

If, during source statement processing, 
a macro local dictionary or the open code 
local dictionary cannot be contained in 
core, segments of them are written on 
SYS002. These segments are backward 
chained. 


System Macro Editing 

After is has processed the text stream, F2 
looks up each system macro instruction name 
entered in the global dictionary. The macro 
definition is located on SYSSLB, read in, 
edited, and written on SYS003 in the same 
manner as each programmer macro definition 
was processed from the text stream. A 
macro local dictionary is created during 
editing and is subsetted and written on 
SYS003 following the macro definition. 

F2 places the SYS003 NOTE/POINT location 
of each system macro definition local dict- 
ionary in the global dictionary entry for 
that macro instruction name. The dictionary 
in turn points to the macro definition 
edited text. 

Any name in the global dictionary for 
which F2 cannot find a corresponding sys- 
tem macro definition on SYSSLB is flagged 
as an invalid operation code. An error 
record is written for the statement in 
which the name appears. 

After it has looked up all macro names 
in the global dictionary, F2 subsets the 
global dictionary — removes all entries 
except those for global variable symbols. 

F2 also subsets the main local dictionary -- 
sorts the entries on the little n a" pointer 
and removes the symbol, big "A" pointers, 
and little "a" pointers. 

The subsetted global and open code local 
dictionaries remain in core. F2 then 
FETCHes phase F3 . 


DRIVER 

One card is read and control is transferred 
to DRVERl . 

DRVER1 

The name and operation field of each in- 
struction is scanned. The name field is 
indicated as defined if non-blank syntax 
errors are noted and, at this point, may 
abort this statement. 

If a prototype is expected, the name 
(if not already present) and SYS003 NOTE/ 
POINT address is entered in the global dic- 
tionary, and each parameter (name field 
included) is scanned and entered into the 
local dictionary for this macro. Edited text 
is built up during scanning. The program 
goes to the output routine ENDOPR, and then 
to DRIVER. If a prototype was not expected, 
the operation field is searched for in the 
global dictionary. If not found, statement 
sequencing is checked and the operation 
field is entered in the global dictionary. 

The statement is treated as a macro instruc- 
tion. The name field and all operands are 
edited and edited text is produced. The 
program goes to ENDOPR for each operand. 

When all operands have been processed, 
control goes to DRIVER. 

If the operation code is found and is not 
an assembler operation, the statement se- 
quencing is checked. The operand field is 
scanned and put into edited text format. 
Control goes to ENDOPR. 

If the operation code is a declaration 
(GBLA, LCLA , etc.), the operand fields are 
scanned and errors diagnosed. Each oper- 
and is inserted into either the global 
dictionary or the local dictionary. Con- 
trol goes to DRIVER. 

If the operation code is a SET state- 
ment, it is checked for statement sequen- 
cing. If valid, the little "a" pointer of 
the variable symbol is found in the dic- 
tionary and inserted into the edited text. 
Control then goes to ENDOPR. 

If none of the above operation codes are 
found, the program performs a computed GO 
TO based upon the operation code. 


AIF and AGO 

The evaluation field, if present, is scan- 
ned and put into edited text. The little 
"a" pointer of the sequence symbol is in- 
serted into the edited text formats. 
Control then goes to ENDOPR. 


ANOP, TITLE, MNOTE, MEXIT, EQU, CSD , CNOP , 
DROP, USING, ORG, PRINT, SPACE, PUNCH, 
ENTRY. COM, EJECT, and LTORG 

All these subroutines follow a procedure 
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similar to AIF and AGO. In each case, 
control goes to ENDOPR. 


MACRO 

v.onL.rol returns to DRIVER with an m— 
dication that the next statement is expect- 
ed to be a prototype. 


ICTL 

This subroutine puts out an error message 
and moves an END card image into the input 
buffer. Control is returned to DRVER1 . 


COPY 

If in a system macro, the address of the 
library is NOTEd. In either case, the input 
in GETSRC is set to the library. A FIND to 
the library is then undertaken. Control 
returns to DRIVER. 


ISEQ 

The operand field is scanned and new input 
parameters in GETSRC are defined. Control 
goes to DRIVER. 


REPRO 

The next card is read and put into an 
edited text format. Control goes to ENDOPR. 


EXTRN 

The operands are scanned and indicated as 
defined for the dictionary. Control goes 
to ENDOPR. 


START, DSECT , and CSECT 

The type attribute is set, and control goes 
to ENDOPR. 


DC, PS 

The operand fields are scanned, and, if in 
open code, the attributes are defined. In 
either case control goes to ENDOPR. 


CCW 

Type, length, and scale attributes are 
moved into the edited text field. The 


operand field is scanned and control goes 
to ENDOPR. 


MEND 

This subroutine goes to ENDOPR to write 
edited text for the MEND card. It then 
goes to DCLOSE. 


END 


The name, operation, operand, and comments 
are written in an edited text format. Con- 
trol is transferred to DCLOSE. 


DCLOSE 

DCLOSE is entered after scan of each pro- 
grammer macro, each system macro, and open 
code. It closes each macro local dic- 
tionary, the open code local dictionary, 
and the global dictionary after all text 
has been scanned and all macros edited. 

At entry, DRCTY (in macro generator 
common) contains the note/point address (on 
SYS002) of the last or only segment of 
the current local dictionary. DCLOSE first 
notes the position of SYS002; then it 
points to the next available position, 
writes the final block of the current 
dictionary, and notes its position. DCLOSE 
then, one by one, reads back the segments of 
the current dictionary from SYS002 and 
subsets them, building a subsetted dic- 
tionary in core. Subsetted macro local 
dictionaries are written out on SYS003 
immediately following the edited text for 
their respective macros. If the subsetted 
dictionary is a programmer macro local 
dictionary, control returns to DRIVER. 

Otherwise, DCLOSE sets a switch in 
GETSRC to indicate all future input will 
be from SYSSLB. It then issues a FIND to 
SYSSLB for each undefined opcode. If the 
opcodes can be found in SYSSLB, control 
goes to DRIVER. When no more opcodes can 
be found in SYSSLB, those remaining are 
flagged as undefined. The open code local 
dictionary and the global dictionary are 
then subsetted, the input stream (SYSIPT) 
is flushed to /* or end-of-file, and the 
next phase is FETCHed. 

ENDOPR 

The comments field is edited, and control 
is transferred to NDSMT3 . 

NDSMT3 

If in a macro, this subroutine writes on 
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SYS003; otherwise, it writes on SYS001. If 
lookups are not suppressed, it inserts a 
little "a" pointer into the edited text 
format where appropriate. In either case, 
it writes edited text on the selected unit. 
If an error record was written on SYS003, 
it is also written on SYS001. If a return 
is expected because of a previously set 
switch (SWTCH7, bit 0), it returns; other- 
wise it goes to DRIVER. 


GETSRC 

This program reads a record from SYSIPT or 
SYSSLB , depending upon which was selected. 
The record is translated to internal code 
and immediately written on SYS001 if GETSRC 
is not processing system macros. Continua- 
tion cards and sequence numbers are noted 
and appropriate action is taken. Control 
returns to the caller. 


BWRITE 

This subroutine moves data to the buffer. 

If the buffer is full, it is written to 
the appropriate utility data set. In 
either case, control returns to the caller. 


BWFORC 

If room exists for another record in the 
buffer, control returns to the caller. 
Otherwise, it goes to BWRITE. 


BWNOTE 

This program NOTES the position of the 
selected utility data set and returns 
control to the caller. 
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PHASE F3 ~ MACRO GENERATION AND CONDITIONAL ASSEMBLY 


OVERALL OPERATION (FLOWCHARTS 8-11) 

Phase F3 reads text from SYS001. See 
Figure 5. This text includes source, error, 
and edited records. Source and error 
records are immediately written onto SYS002. 
MEND and MEXIT statements are not processed. 
The 'edited text for open code and for all 
macro definitions, plus the subsetted 
global and local dictionaries, is used to 
generate one-for-one statements in edited 
text form and to perform conditional 
assembly. Assembler edited text records 
are produced and written on SYS002. When 
the end of text is reached, F3 FETCHes 
Phase F7. 



Figure 5. I/O Flow for Phase F3 


PHASE F3E - ABORT CONDITION (FLOWCHART 12) 

Phase F3E will be substituted for Phase F3 
if any of the following abort conditions 
arise in Phase F2: 

• The global dictionary fills up. 

• A local dictionary exceeds 64K bytes on 
the overflow file or in core. 

• The subsetting area is too small. 

All text is read from SYS001. Only source 
records with accompanying error records are 
written on SYS002. All other records are by- 
passed. When the end of text is encountered, 
an edited text record for an END card is 
generated and written on SYS002, and F3 
FETCHes Phase F7. 


FUNCTIONS 

Phase F3 : 

• Generates a parameter table from a macro 
instruction-macro prototype pair of 
statements . 

• Generates assembler edited text records 
using macro definition edited text and 
the information in the global and 
associated local dictionaries. 

• Evaluates conditional assembly expres- 
sions . 

• Performs conditional assembly. 


Macro Generation 

F3 reads text from SYS001. When a macro 
instruction is encountered, its exact 
location is NOTEd. The input file is 
SYS001 for outer macro instructions and 
SYS003 for inner macro instructions. A 
complete pass over the macro instruction 
text is made. Source and error records 
associated with the macro instruction are 
written on SYS002. When the end-of-macro 
instruction field is encountered, the 
position is NOTEd so that the input of 
text can later be resumed at the correct 
position. The input data set is then re- 
positioned again to the beginning of the 
macro instruction text. 

The little "a" pointer of macro instruc- 
tion points to the associated entry in the 
global dictionary. This entry points to 
the associated subsetted macro local dic- 
tionary on SYS003. If the entry is zero, 
this mnemonic represents an undefined 
operation to the macro generator. 

If the global dictionary entry is not 
zero, the first segment of the subsetted 
local dictionary is read in. This segment 
contains the macro local dictionary header 
record which indicates the size of this 
local dictionary. If there is room in the 
block of main storage allocated by Phase 
F2 , the complete local dictionary is 
brought into main storage and the available 
storage pointer is updated by the length of 
this local dictionary. 

The parameter table is constructed at 
this location. This table indicates the 
values to be substituted for macro proto- 
type symbolic parameters when they are 
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referenced in model statements or inner 
macro instructions. &SYSNDX and &SYSECT 
are treated as parameters, and their entries 
are assigned the first two entries of this 
parameter table. The third entry is 
assigned to the name field. 

Then the NOTEd location of the per- 
tinent macro prototype edited text is 
obtained from the local dictionary header 
record, the prototype edited text is read 
in, and the parameter table is completed. 

For positional parameters, the values of 
the inner macro instruction operands are 
obtained from the appropriate dictionary, 
and for outer macro instruction operands, 
they are obtained from the operand itself. 
Entries are made sequentially in the param- 
eter table. As each prototype keyword is 
encountered, it is compared against each 
macro instruction keyword operand until a 
match is found. The values are then entered 
in the parameter table. 

The cycle of comparisons to find the 
matching macro instruction operand corre- 
sponding to the next sequential prototype 
keyword begins where the last cycle left 
off. The operands are compared in a "wrap- 
around" fashion. Because the entries in 
the parameter table are variable length 
entries in position number (parameter) 
order, a separate length table with a two- 
byte entry for each parameter table entry 
is maintained. (This length table contains 
the accumulated length of each parameter 
entry. In effect, an entry in this table 
is an increment that must be added to the 
address of the beginning of the parameter 
table to locate its associated parameter 
entry. ) 

After the parameter table is completed, 
the rest of the macro definition edited 
text is read in. Conditional assembly 
evaluation is performed as required, sub- 
stitutions are made for references to 
symbolic parameters and system variable 
symbols, and the macro definition is ex- 
panded, producing one-for-one edited text 
records for input to the assembler phases. 

If an inner macro instruction is encounter- 
ed, the length table is placed behind the 
parameter table, followed by the address of 
the length table and address of the begin- 
ning of the parameter table, and the entire 
cycle is repeated. Nesting of macro in- 
structions can occur to any depth, provided 
there is sufficient room left in storage to 
enter the local dictionary associated with 
the inner macro instruction. If there is 
not sufficient room left, this information 
is saved for diagnostic purposes, the con- 
cerned local dictionary is not brought into 
storage, further (deeper) nesting of macro 


instructions is discontinued, and the 
position of SYS003 is NOTEd. Processing 
continues at the discontinued text of the 
next outer level macro. 

When the ACTR value is exceeded within 
a macro expansion, the information is 
saved for diagnostic purposes, control is 
returned to the outermost macro instruction 
expansion, and processing continues. If 
the ACTR value is exceeded in open code 
processing, the information is saved for 
diagnostic purposes, an END assembler in- 
struction record is created and inserted 
in the text stream on SYS002, and input is 
ended . 

Whenever the processing of a macro defi- 
nition is completed, generation of output 
text is resumed for the next higher level 
macro instruction; or , if the outermost 
macro definition expansion has been com- 
pleted, processing of open code edited 
text is continued. After completely pro- 
cessing the edited text input from SYS'001, 
F3 transfers control to Phase F7 . 


Conditional Assembly 

Phase F3 evaluates conditional assembly 
expressions. If the expression is in a 
SETx statement, the "a" pointer associated 
with the SET variable. symbol in the name 
field is used to place the current SET 
symbol value in its dictionary definition 
entry. When an AGO or AIF instruction is 
encountered and the evaluation, if one is 
necessary, indicates that a branch must be 
taken, the NOTEd position of the edited 
text named by the sequence symbol is ob- 
tained from the appropriate local dic- 
tionary. The text on SYS001 or SYS003 is 
repositioned and the appropriate text is 
read in and processed. 


FUNCTIONAL PROGRAM SECTIONS AND ROUTINES 
ZACINA 

This routine is the F3 entry point. It 
relocates permanent and open code diction- 
aries, initialized I/O buffers, and ini- 
tializes input pointer and macro base 
pointer. 


CGOTO 

This is a computed GO TO on the various 
statement types. 
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MACH OP 


BEGMAC 


This routine processes edited text records, 
evaluating fields which require substitu- 
tion . 


SOURCE 

This routine puts out a source or error 
record. 


SETST 

This routine determines the address of the 
result field, evaluates the operand, and 
stores the result. 


CSECT 

This routine stores the las-t CSECT name 
and outputs the record. 


AIFST 

This routine evaluates the expression. If 
expression is false, processing continues 
with the next sequential record. If the 
expression is true, the text file is re- 
positioned to the sequence symbol. 


AGOST 

This routine repositions the text file to 
the sequence symbol . 


MENDST 

If exit is from an outer macro, this routine 
sets the text file to read from SYS001; 
otherwise it continues reading from SYS003. 
It positions the text file to read from 
discontinued text. 


MINSTR 

This routine outputs the source, notes the 
discontinued text, and repositions the 
text file to the beginning of the macro 
instruction. 


ENDST 

This routine dumps output buffers and re- 
winds utility files. 


This routine reads the macro dictionary 
and initializes the parameter table with 
SYSNDX and SYSECT entries. 


PROTO 

This routine points to macro definition 
prototype and reads it into the input 
buffer . 


PR0T01 

This routine builds the parameter table, 
evaluating operands as needed. A merge 
of keywords is performed if keywords exist. 


VALUAT 

This routine sets the mode switch to 
character expression. It initializes the 
pointers, operator table, and result list 
and it zeros-out length buckets of string 
areas. In general, this routine is called 
for the evaluation of an expression. 
Evaluation may be required in the name, 
operation, or operands fields. An expres- 
sion may be a simple parameter reference 
or a complicated arithmetic expression in 
a SETA operand. 

Any term that requires a retrieval from 
some dictionary (parameter reference or 
SET variable) will eventually pass through 
the VALUAT routine. 

The routine operates on the flags shown 
in Appendix B. 


SYMBL 

This is an input pointer to an operator. 


CHFORC 

This routine tests for the type of operator. 


ADVOP 

There is no forcing in this routine. It 
advances the operation pointer and the 
emergency operation into the operation 
table. If the operation is OR or AND, it 
reinitializes the mode switch to character 
expression. 
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ADVINP 


D00PR1 


This routine advances the input pointer. 


FORCE 

This routine determines if the new opera- 
tion forces the last operation entered in 
the operation table. 


TSTOPl 

This routine tests for end of expression. 
If it is the end of the expression, TSTOPl 
returns to DRIVER. 


DOOPR 

This routine fetches the address of the 
two fields to be processed. 


SUBSC 

This routine processes subscripted variable 
or parameter sublist or $SYSLIST. 


RELINT 

This routine initializes a string pointer 
with the address of string area 2 and turns 
off the PUTST switch. 


META3 

If character expression mode exists, this 
routine fetches the binary word and con- 
verts it to decimal. If arithmetic ex- 
pression mode exists, it initializes for 
entry of the result, then stores the result. 


MEB4 

If in the arithmetic expression mode, this 
routine initializes for entry and stores 
the result. 


METC4 

This routine fetches the length of a string, 
initializes for the entry of the result, 
and stores the result. 


This routine processes the relational 
operator and stores the result. 


RELAT 

This routine processes the relational op- 
erator and stores the result. 


ARITOP 

This routine processes the arithmetic op- 
erator and stores the result. 


NOTOPR 

If outside range of valid flags, this 
routine sets the end of expression flag in 
the operation table; otherwise it performs 
a computed GO TO on the flag. 


CSD 

This routine translates a character string 
back to the original representation. 


DECINT 

This routine stores the value of a decimal 
in the intermediate result list. 


META 

This routine initializes for a SET variable 


METB 

This routine initializes for a SET variable 


METC 

This routine initializes for a SET 
variable . 


CHARST 

This routine puts a string in the string 
area . 
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BEGSUB 


SATTBT 


This routine stores the length of a string 
already present in the string area and 
sets the substring mode. 


SETARE 

This routine sets the mode switch to the 
arithmetic expression mode. 


SBEND 

This routine sets the substring comma or 
the left parenthesis switch. 


TATTBT 

This routine checks for the type attribute 
of a parameter. 


LATTBT 

This routine checks for the length attribute 
of a parameter. 


This routine checks for the scale attribute 
of a parameter. 


PACKS 

This routine stores the address of a result 
in the pointer list. 


SYSLST 

This routine stores a parameter flag to 
simulate a parameter reference. 


PARMTR 

This routine stores a parameter flag and 
number into the pointer list. 


ATTPAR 

This routine checks for the attribute of a 
parameter . 
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PHASE F7 - INITIAL ASSEMBLY 


OVERALL OPERATION (FLOWCHARTS 13-27) 

Phase F7 has three general functions : 

• Processing symbols 

• Processing literals 

• Assigning storage locations 

Symbols are processed by entering the 
mnemonics and their relative storage ad- 
dresses in a symbol table. Addresses are 
assigned relative to the beginning of the 
control section in which they are deter- 
mined. (While the program performs this 
function, it is working in the "assignment 
mode . " ) 

If more symbols are defined in the user's 
program than will fit in the storage al- 
located for the symbol table, the point in 
the text that caused overflow is NOTEd and 
the remainder of the program is processed 
without making further symbol table entries. 
However, symbols encountered are checked 
for duplicate names, and symbols already 
defined in the symbol table are substituted 
into the text where applicable. (While per- 
forming these functions, the program is in 
the "substitution mode.") 

When the end of the text data set is 
reached, it is repositioned to the begin- 
ning, and operand processing continues until 
the previously noted overflow position is 
reached. At this point, the old table is 
discarded and processing reverts to assign- 
ment mode and the next symbol table segment 
is constructed. 

Building symbol tables and processing 
operands continue until the last symbol 
defined has been placed in the symbol table. 

As name fields are processed, Phase F7 
collects appropriate symbols and creates 
an external symbol dictionary (ESD) which 
will be processed by Phase FI. 

Phase F7 also processes literals and 
self-defining terms in expressions affect- 
ing the location counter. Literals are 
entered in the symbol table. When an LTORG 
or END assembler instruction is encountered, 
the literals in the table are inserted in 
the program stream. 

All mnemonic operation codes created by 
concatenation or parameter substitution 
during macro generation are translated in 
this phase. 

Cross-reference records are generated in 
Phase F7 during symbol processing and ex- 
pression evaluation. 


Phase F7 also creates an AUTOTEST sym- 
bol table if requested by OPTION SYM, and 
writes cards generated by PUNCH and REPRO 
statements . 

Source, error, and edited text is read 
from SYS002, and literal pools and text are 
written on SYS001. 

Overflow of the external symbol diction- 
ary table, the literal-pool base table, or 
cross-reference table will result in 
writing overflow segments on SYS003. 


I/O FUNCTIONS 

Phase F7 may make several passes at the 
source text. See Figure 6. On the initial 
iteration, the text is read from SYS002 and 
reblocked onto SYS001. On subsequent 
iterations , the text is passed between 
SYS001 and SYS002. 

The text is reformatted so that a 
"broken" record always starts at the begin- 
ning of a physical block. This ensures 
that a logical record is contained within 
a single physical block. 

Edited text records are moved from the 
input buffers to a work area where work 
buckets are attached. The records are then 
transferred to the output buffers for 
output to a utility file. 

Error records are generated and trans- 
ferred to the output buffers as errors 
are encountered. 



Figure 6 . I/O Flow for Phase F7 
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As the cross-reference block and literal 
base table overflow, they are written onto 
the overflow file, SYS003. Each time the 
external symbol dictionary overflows it is 
written onto SYS003, and its position on 
the file is NOTEd for future reference 
within the phase. The external symbol 
dictionary blocks are identified and called 
from the overflow file through the use of 
the NOTEd record position. 


PHASE ORGANIZATION 

Phase F7 is organized as follows : 

• Mainline control - F7C. 

• Functional routines. 

GET statement - F7X. 

DC, DS evaluation - F7D. 

External symbol dictionary pro- 
cessor - F7E. 

AUTOTEST processor - F7N. 

• Common subroutines (common to routines 
within Phase F7) . 

Symbol table function - F7S. 
Expression evaluation - F7V. 

Error logging function - F7L. 

Literal DC generator - F7G. 

I/O subroutines and initialization - 
F7I . 


F7C - Mainline Control (Flowcharts 13-18) 

Control is passed to F7C by the initializa- 
tion routine, F7I. 

Program modifications are made based on 
the setting of the cross-reference and 
AUTOTEST option bits. F7N is called by F7C 
to generate AUTOTEST cards for all edited 
statements if the option bit is set. 

F7X is called to move the next edited 
text record into the text work area after 
putting the current (processed) text record 
onto the output file. 

'The mode is tested (program modifica- 
tion) . If substitution has been made, con- 
trol is passed to substitution control. 

If the type of operation is assembler 
op, control is passed to assembler op con- 
trol. 

Machine operations are processed, and 
the location counter incremented by the 
operation length. If an external symbol 
dictionary identification has been assigned, 
control is passed to the external symbol 
dictionary routine to initiate private code. 


If a name is present, the symbol table 
is tested for possible overflow. If the 
symbol table is full, the mode is changed 
to substitution, and control passed to 
substitution control. 

If a literal is referenced in the operand 
field, control is passed to F7D to make a 
literal entry in the symbol table. 

If the cross-reference bit is set, the 
operand is examined for references to sym- 
bols . 

The operation length is then calculated 
from the hex code. 

Assembler operation codes are processed 
by examining the assembler switch code for 
the following : 

• Uninitiated private code (if the 

external symbol dictionary ID = 0) . 

• Possible symbol table overflow. 

• Location counter reference. 

• Special cross-reference scan to generate 

cross-reference records. 

The internal hex code for assembler 
operation codes is used to compute a 
branch address to the specialized assembler 
operation routine. 

In the substitution mode, F7C tests all 
records for symbol references. If substi- 
tution is required, a work bucket is at- 
tached for each symbol referenced in the 
operand. 

For machine operation codes, F7C tests 
name fields for multiply defined symbols 
and evaluates literals for duplicates. 

For assembler operation codes, F7C 
processes assembler operations in the sub- 
stitution mode only when substitution is 
required. 


F7X - Phase F7 GET Statement Routine 
(Flowchart 19) 

F7X is used by 7C to move edited text 
records into the text work area and put 
them back into the text stream. 

On all but the first time called, F7X 
puts the current text record onto the text 
file by calling PUTXT. 

If an error record is in the build area, 
F7X puts the error record onto the next 
record following the text record and clears 
the error record in core switch. 

If the literal switch is set, the next 
record will be moved into the text work 
area from the literal entry in the symbol 
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table. Otherwise, F7X calls GETPT for a 
pointer to the next text record in the 
input buffer. 

If an end-of-file is detected, F7X moves 
a QUIT record into the text work area if 
the mode is assignment. If the mode is 
substitution, the file is repositioned to 
the first text record. 

F7X tests each edited text record for a 
record type. If the record is not edited 
text, it is put out on the output text file, 
and the next record is examined. 

Edited text records are moved into the 
text work area for processing by Phase F7. 

Edited-generated records are converted 
to suitable format for Phase F7 processing. 
The hex code is set from the operation code 
conversion table, and substituted fields 
are adjusted for leading and trailing 
blanks . 

F7X sets absolute pointers to the operand 
field and appends fixed fields and symbol 
work buckets (if any exist) . 

The operand field on machine operations 
is scanned for literals. If an equal sign 
is found outside of quotes, the literal in 
the operand indicator is set> and the 
literal work bucket is appended to the text 
record. 

Fields are tested for legality as 
follows : 

• The name field is tested for legal char- 
acters, too many characters, and leading 
alpha character. 

• Assembler operations are tested for 
name field required or not allowed and 
operand field required or not allowed. 


F7D - DC/DS Evaluation Routine (Flow- 
chart 20) 

This routine is called by F7C to process 
DCs, DSs, literals, and literal DCs. A 
complete syntax check is done for all DC 
types, and appropriate error messages are 
logged when necessary. One 15-byte DC work 
bucket is attached to the appended fixed 
field of the text record for each DC, DS , 
and literal DC operand for use by the Phase 
F8 DC evaluation routine (F8D) . In the 
external symbol dictionary, a table entry 
is made for each valid constant in a V-type 
DC . 

One complete statement is processed in 
each pass, and control is returned to F7C. 


F7E - External Symbol Dictionary Processor 
(Flowcharts 21-23) 

This processor is called whenever any of 


the assembler operations COM, START, CSECT, 
DSECT , ENTRY, EXTRN , or ORG or a V-type 
address constant is encountered. It is 
also called at the beginning and end of 
assembled code. Three other entry points 
are used for ENTRY, EXTRN, and control 
sections in the substitution mode. 

The functions performed are as follows: 

• Generating external symbol dictionary 
entries . 

• Updating the location counter in exter- 
nal symbol dictionary entries. 

• Making symbol table entries for names in 
the statements handled. 

• Setting and maintaining the control 
table switches CBDNO, CBDSW, CCMNO, 
CESDID, CESDNO, CNOESD, CPCNO , CTPCSW, 
CSTVAL , CSGCTR, CLASID, CTNDID , CTCMSW, 
CTESDP , CTESRN , CTESRP , CTFSTN , CTLOC, 
and CTYPE. (See Appendix G.) 

• Issuing various error messages. 


F7N - F7 AUTOTEST Routine 


If the AUTOTEST option is exercised, con- 
trol is passed from F7C to F7N after the 
process of each statement that defines a 
symbol or affects the location counter in 
any way. 

The output records (cards) of F7N are 
written on SYSPCH and/or SYSLNK data sets 
Subsequent executions of the object pro- 
gram in the AUTOTEST mode use this in- 
formation . 


F7S - Symbol Table Subroutine (Flowchart 24) 

The symbol table processor has three entry 
points in Phase F7 : STPUTR, STGETR, and 
STROOM. Their function is to put symbols 
into the table, retrieve symbols from the 
table, and test whether room exists for 
another symbol. 

The symbol table and the external symbol 
dictionary share an area of main storage. 

The symbol table starts at the low-numbered 
end, and the external symbol dictionary 
starts at the high-numbered end. Room 
must be left by the symbol table for two 
external symbol dictionary segments of 260 
bytes each (16 items 16 bytes long, plus 
4 bytes for overflow addressing) . Apart 
from this restriction, overflow does not 
occur until the external symbol dictionary 
and the symbol table are about to meet. 

STPUTR tests to see whether a duplicate 
exists and, if not, puts the given symbol 
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into the table with its attributes. A type 
1 or 3 cross-reference is also made. 

STGETR tests whether the requested sym- 
bol is in the table and, if so, gives the 
address of the first byte in the entry after 
the name field. If not, zero is returned. 

STROOM determines whether overflow can 
occur on the next STPUT. If overflow can 
occur and room can be made for the symbol 
table, or if the ESD processor made the call 
the external symbol dictionary is put on the 
overflow file. If not, the need to enter 
substitution mode is signalled. 


F7V - Expression Evaluation Routine (Flow- 
chart 25) 

SP1 at entry contains a pointer to the first 
character of the expression. SP1 at exit 
contains a pointer to the character which 
caused F7V to terminate. The terminating 
character is always a left or right paren- 
thesis, blank, or comma, unless there was 
a syntactical error, in which case SP1 is 
a zero. 

SP2 at exit contains the result, if the 
expression is absolute. If the expression 
is relocatable, SP2 contains a pointer to a 
full word value followed by the RLIST. If 
the expression contains an error, SP2 is 
zero. 

Upon exit from F7V, the condition code 
has the following meaning: 

Code Meaning 

0 absolute expression 

1 simple relocatable expression 

2 complex relocatable expression 

3 evaluation impossible (error) 

Syntax errors cause immediate exit from 
F7V; errors other than syntax are logged, 
and normal processing is continued. 

F7V has the following functions: 

• Evaluate expressions. 

• Log type 2 cross-references (XREF) - 
(only F8V) . 

• Convert self-def ining values (SDVCF) . 

• Detect the following errors and pass the 
information to F7L : 

Relocatability error 
Self-defining value too large 
Arithmetic overflow 
Symbol not found - (F8V) 


Symbol not previously defined - (F7V) 
Two terms not separate 
Illegal character 
Too many terms 

Two operators illegally coupled 
Too many levels of parentheses 
Expression end premature 
Invalid symbol 
Expression value too large 


Algorithm Description 

A term is a relocatable or absolute symbol, 
a length attribute reference (L'sym), a 
location counter reference (*) , or a self- 
defining value. When a term is encounter- 
ed, its value is entered in the next avail- 
able position in the TERMS list. If it is 
a relocatable term, the sign code and its 
external symbol dictionary ID are entered 
in the next available position in the 
RLIST list. If it is an absolute term, the 
RLIST pointer is lumped to the next half- 
word, in effect putting zeros into that 
position, since all the tables are zeroed 
during F7V initialization. 

Type 2 cross-references are made during 
Phase F7 assignment mode. 

When an operator is encountered, its 
code is entered in the next available posi- 
tion in the OPRNS list, providing its 
hierarchy is greater than the previous 
operator. Hierarchy codes are as follows: 

0 0, b 

1 + 

2 

3 * 

4 / 

The code 0 for a left parenthesis is 
always entered in the OPRNS list. A right 
parenthesis forces all operators in the 
OPRNS list back to the preceding left 
parenthesis. A blank, comma, or a left or 
right parenthesis which legitimately ends 
the expression forces all operators in 
OPRNS to the top of the list. An operator 
with a code less than or equal to the pre- 
vious code forces only the previous op- 
erator. 

When an operator is forced, the arithme- 
tic is performed between the last two en- 
tries in the TERMS list, and the result is 
stored in the position of the first entry 
involved in the arithmetic. Also, the sum 
of the two corresponding NT RMS entries is 
placed in the position of the first entry. 

COND is intially set to 0 on entry to 
F7V. It is then set to 1 each time a right 
parenthesis, +, or - is encountered? to 2 
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each time an * or / is encountered; to 
3 each time an absolute term or left paren- 
thesis is encountered; and to 4 each time a 
relocatable term is encountered. The COND 
switch setting determines the validity of 
an operation. See Table 3. For example, 

/ is valid only when C0ND=3 (/ follows an 
absolute term or left parenthesis.). If 
C0ND=4 , a relocatability error is logged 
(/ follows a relocatable term) . A syntax 
error is logged if COND=0 (expression begins 
with /) or if C0ND=1 or 2 (/ follows +, -, 

*, /, or right parenthesis) . 

Work tables used in F7V are as follows : 

TERMS (16 full words) - Entry is made for 
each term in the expression. At end of 
evaluation, the first full word location 
contains the final result; subsequent 
table entries contain intermediate re- 
sults . 

OPENS (20 bytes) - Entry made for each 
operator in the expression. 


Table 3. Condition Switch Settings 


Character 

Encoonterd 

Previous 

Setting 

Action 

Flowchart 

References 

start 

- 

set COND = 0 


( 

0/1/2 

set COND - 1 



3/4 

if PCNTR > 4, log error 

IJY026 

LPAR 

) 

0/1/2 

log error IJY085 



3/4 

set COND = 3 

if PCNTR = 0, end of expression 

RPAR 

+ or - 

3/4 

set COND = 1 

LTCOM 


0/1/2 

log error IJY085 

LOOP 

* 

0/1 

set COND = 4 

(* is location counter ref.) 



2 

log error IJY085 

LTCOM 


3 

set COND * 2 
(* is mult.) 



4 

log error IJY025 


/ 

3 

set COND = 2 

LTCOM 


0/1/2 

log error IJY085 

LOOP 


4 

log error IJY025 

absolute term 

3/4 

log error IJY085 



0/1/2 

set COND = 3 

Term 

Computing 

Routines 

relocatable 

0/1 

set COND = 4 

term 

2 

log error IJY025 


3/4 

log error IJY085 


, or blank 

0/1/2 

log error IJY039 



3/4 

if PCNTR > 0, log error 

IJY039 

BLCOM 


NT RMS (16 bytes) - A 2 is entered for each 
term. At end of evaluation, the first 
byte contains a value equal to twice the 
number of terms in the expression. 

RLIST (16 halfwords) - Sign code (1 for +, 

2 for — ) and external symbol dictionary 
ID are entered for each relocatable term; 
zeros appear for each absolute term and 
undefined symbol. During addition and 
subtraction, RLIST entries are zeroed 
when the signs are opposite and the ex- 
ternal symbol dictionary IDs are the 
same. 

Upon exit, a simple relocatable expres- 
sion will have a + sign and the external 
symbol dictionary ID of its unpaired posi- 
tive term in the first halfword, and the 
remaining 15 halfwords will contain zeros. 

A complex relocatable expression at exit 
will have a non- zero halfword for each un- 
paired relative term. The non-zero half- 
words will be scattered in the table. A 
complex relocatable expression may also 
be the result of a single unpaired negative 
term. A minus sign (-) and the external 
symbol dictionary ID of this term will ap- 
pear in the RLIST. 


F7L - Error Logging for Phases F7 and F8 
(Flowchart 26) 

This routine is called to attach error mes- 
sages to an edited text record. 

F7L tests the error switch in the control 
table to determine if there is an error re- 
cord for the current text record in the 
error record build area. If there is, the 
error count is compared with the maximum al- 
lowable number of errors (16) . If the count 
is equal to the maximum , the current and 
all subsequent error messages are ignored. 

If there is no error record in the build 
area, F7L tests the "error record follows" 
bit in the text record. If the bit is 
set, the error record is moved into the 
build area from the text file. If not, the 
error record is initialized in the build 
area, and the "error record follows" bit 
(TXERI ) is set in the text record. In 
either case, the error switch in the con- 
trol table is set for subsequent calls on 
the current text record. 

The error message is added to the error 
record, and the error count is incremented 
by one . 

The relative column pointer is added to 
the error message. If no column pointer is 
required, it is set to zero. 

Control is then returned to the calling 
routine . 

F7G - Literal DC Generator (Flowchart 27) 

F7G is a routine which builds a literal DC 
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edited text record for an outstanding 
literal entry in the symbol table. F7X in- 
vokes F7G once for each literal DC that is 
to be built into the edited text. F7G then 
moves in pertinent information such as the 
record length, record type X'60' for edited 
generation, operation type X' 80 1 for as- 
sembler, operation code X'25' for literal, 
and operation and name field lengths of 
zero. After the text has been generated, 
control is returned to the caller. 


F7I - Phase F7 Initialization and I/O 


The I/O portion of phase initialization 
OPENS the three utility data sets. READ, 
WRITE, CHECK, and POINTS are employed for 
all data sets. »The routine initiates a 
READ of the first block of the text stream 
and initializes text, literal base table, 
and cross-reference pointers. 

F7 I/O functions for PHCLS , GETPT , GETXTM, 
PUTXT, CLSTXT , CWRESD, CRDESD, PUTXRF, and 
PUTLBT are described below. 


PHCLS - Phase Close 

The I/O portion of the phase close function 
repositions (POINTS) SYS001 and SYS002 and 
inserts the following parameters into the 
I/O portion of the assembler control table. 

CTRLBT (4 bytes) - Pointer to the first 

literal base table block on the overflow 
file, SYS003 . 

CTCLBT (2 bytes) - Count of the number of 
literal base table physical blocks which 
have been written onto SYS003. 

CTRXRF (4 bytes) - Pointer to the first 
cross-reference table block contained 
on the overflow file, SYS003. 

CTCXRF (2 bytes) - Count of the number of 
cross-reference physical blocks which 
have been written onto SYS003. 

The literal base table pointers are 
tested to determine if any literal base 
table entries have been made. If so, 
an end-of-file label is embedded into the 
literal base table stream, and the partially 
filled block is written onto the overflow 
file, SYS003. If no literal base table 
entries have been made, then CTCLBT is 
cleared to zeros. 

PHCLS may be called by an unconditional 
branch to PHCLS. PHCLS FETCHes FI. 


GETPT - Get Point 

GETPT points to the next logical text 
record within the input text stream. 

Method. GETPT double-buffers the text 
stream. Logical buffers may be split be- 
tween two physical blocks. The routine 
points to each record in sequence. The 
pointer is pointing to the most significant 
byte of the record length indicator (RLI) . 

Restrictions and Assumptions . The "last 
record bit" contained within FLAGA must be 
set to terminate the input text stream. A 
logical record must be contained within 
two physical blocks. 


GETXTM - Get Text and Move 

GETXTM transfers a logical record from the 
input text stream to an area specified by 
the user. 

Method. Upon entering, GETXTM tests a 
global switch which is set by the GETPT 
subroutine. If the switch is set, GETXTM 
clears the switch and transfers the record 
that is currently being pointed. If the 
switch is not set, GETXTM calls GETPT to 
point to the next logical record in the 
input text stream. GETXTM then transfers 
that record to the user's work area. Thus, 
if the user wishes the next logical record 
moved to his work area, he can call GETXTM 
without first calling GETPT. 

If the text record is segmented, the 
routine joins the two segments together to 
produce a single continuous record. In so 
doing, it drops the second record length 
indicator and updates the first record 
length indicator to the total record byte 
count. In addition, the "break flag bit" 
contained within FLAGA is cleared to zero. 


PUTXT - Put Text 

PUTXT retrieves a logical record from the 
input buffers or from an area specified by 
the user, and transfers the record to the 
output buffers for eventual output to a 
utility data set. 

Method. If SPl is zero, PUTXT sets a 
global switch and calls GETXTM. GETXTM 
tests the switch and, if set, transfers 
the text record from the input buffer to 
the output buffer. If the GETPT global 
switch is not set, GETXTM will call GETPT 
to point to the next logical record. Thus, 
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the next logical record in the text stream 
can^ be transferred directly to the output 
buffer by simply calling PUTXT without first 
calling GETPT or GETXTM. 

If SP1 is non-zero, the record is trans- 
ferred from the area specified by SPl into 
the output buffer. 

Restrictions and Assumptions. A logical 
record must not exceed in length one physi- 
cal output block. 


CLSTXT - Close Text 

CLSTXT POINTS the input text file, embeds 
an end-of-file label into the output text 
stream, and POINTS the output text .file. 

In addition, it interchanges the utility 
file designators so that the current input 
text file becomes the future output text 
file, and the current output text file be- 
comes the future input text file. 

Method. The output buffer management sub- 
routine is called, an end-of-file label is 
embedded into the output text stream, and 
the output file is repositioned. The I/O 
designators are interchanged, and the text 
buffer pointers are initialized. This 
routine is called by PHCLS. Hence, unless 
the phase anticipates an iteration on the 
text stream, this routine should not be 
called by mainline control. 


CWRESD - Write External Symbol Dictionary 

CWRESD writes the external symbol diction- 
ary (ESD) onto the overflow file, SYS003, 
and NOTEs its position for future reference. 

Method . The routine tests the write posi- 
tioning required switch. If set', the file 
is POINTed to the next write position. If 
not set, the file is assumed positioned for 
the next write. The external symbol dic- 
tionary block is then written onto the over- 
flow file and its position NOTEd. The note 
label is passed on to the user for future 
reference . 

Restrictions and Assumptions. The routine 
does not keep count of the number of ex- 
ternal symbol dictionary blocks read or 
written. It assumes the user is requesting 
a block which has been previously written. 


CRDESD - Read External Symbol Dictionary 

CRDESD POINTS the overflow file to the re- 
quested external symbol dictionary and 


reads it into an area specified by the 
caller . 

Method . Using SPl, the overflow file is 
POINTed to the requested external symbol 
dictionary, the external symbol dictionary 
is read into the area specified by SP2, 
and the write positioning required switch 
is set. 

Restrictions and Assumptions. The routine 
does not keep count of the number of ex- 
ternal symbol dictionary blocks read or 
written. It assumes the user is requesting 
a block which has been previously written. 


PUTXRF - Put Cross-Reference 

PUTXRF points to the next available area in 
the cross-reference output area for building 
a cross-reference logical record. 

Method. The routine is called each time a 
cross-reference record is to be built. The 
routine advances through the buffer at 17- 
byte increments until the block is filled. 

At this point, the buffer is written onto 
the overflow file at the next available 
write position. The first block written 
onto the overflow file is NOTEd for future 
reference . 

Restrictions and Assumptions. The routine 
assumes a record will be built at the 
POINTed location since it merely advances 
to the next 17-byte location each time it 
is called. 


PUTLBT - Put Literal Base Table 

PUTLBT points to the next available area 
in the literal base table output area for 
building a literal base table logical 
record. 

Method . The routine is called each time a 
literal base table record is to be built. 

The routine advances through the buffer at 
13-byte increments until the block is filled. 
At this time the buffer is written onto the 
overflow file at the next available write 
position. The first block written onto the 
overflow file is NOTEd for future reference. 

Restrictions and Assumptions . The routine 
assumes that a record will be built each 
time it is called since it merely advances 
to the next 13-byte location. 
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SYPUNH - System Output (Located in RTA) 


SYPUNH outputs 80-character logical records 
to either the SYSPCH or SYSLNK data sets or 
to both. On entry, SPl points to the first 
byte of an 81-character buffer where the 
first character is an internal control char- 


acter. SYPUNH tests the SYSPCH and the 
SYSLNK option bits. If either one is set, 
the contents of the 81-character buffer 
(except for the control character) are 
transferred accordingly to the SYSPCH or 
SYSLNK data sets. If both are set, the 
contents of the buffer are transferred to 
both data sets . 
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PHASE FI 


INTERLUDE 


OVERALL OPERATION (FLOWCHART 28) 

The main function of Phase FI (F Interlude) 
is to write the external symbol dictionary 
on the SYSLST , SYSPCH, and/or SYSLNK data 
sets. External symbol dictionary segments 
and literal pool bases are located either in 
main storage or in an overflow segment on 
SYS001 . 


I/O FUNCTIONS 

Phase FI processes literal base table and 
external symbol dictionary entries genera- 
ted in Phase F7 »and outputs literal adjust- 
ment table entries. See Figure 7. The 
literal base table and literal adjustment 
table are passed at the GET/PUT logical 
record level, and the external symbol dic- 
tionary input is called at the READ level. 
The I/O subroutines perform their own block- 
ing and deblocking functions for the logical 
record entries. The system output routines 
SYPUNH and SYSL are called to output 
external symbol dictionary data. 



*lf symbol table overflow occurred in Phase F7, 

SYS001 may be used instead of SYS002. 

Figure 7. I/O Flow for Phase FI 


I/O SUBROUTINES 

FII - FI Initialization 

The I/O portion of phase initialization 
determines if any literal base table entries 
have been output from Phase F7. If so, the 
first literal base table block is read 
from the overflow file, SYS001, and the 
pointers to the first logical record entry 
within the block are initialized. Control 
is then transferred to the mainline control 
driver. 

Phase F7I Cthe Phase F7 I/O routine) 
transfers control to FII which in turn 
transfers to Phase FI mainline control. 


FICLS - FI Phase Close 

The I/O portion of the phase close . function 
embeds an end-of-file label into the literal 
adjustment table output stream and writes 
the last literal adjustment table block 
onto the alternate overflow file. SYS001 
and the alternate overflow file- are re- 
positioned, and the following entry is 
placed into the assembler control table . 

CTCLAT - Count of the number of physical 
literal adjustment table blocks which 
have been written onto the alternate 
overflow file. 

Control is then transferred to the next 
phase . 

FICLS should be called only after main- 
line control has finished its phase. FICLS 
may be called by an unconditional branch 
to FICLS. 


GETLBT - Get Literal Base Table 

GETLBT points to the next logical record 
entry contained within the literal base 
table input area. 

Method. The subroutine is called each 
time a literal base table logical record 
is required. The routine advances through 
the buffer at 13-byte increments until the 
entire block has been processed, at which 
time the next literal base table physical 
block is read from the overflow file. If 
either an end-of-file label is detected or 
the block count becomes zero (whichever 
appears first) , the end-of-file flag is 
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set, and control is passed to the caller. 


RDESD - Read External Symbol Dictionary 

RDESD POINTS the overflow file to the 
requested external symbol dictionary and 
reads the block into an area specified by 
the caller. RDESD is embedded into the 
section LPFI2 . LPFI2 reads the entire 
external symbol dictionary into core, seg- 
ment by segment. Logic is identical with 
Phase F7 RDESD. 


PUTLAT - Put Literal Adjustment Table 

PUTLAT points to the next available area 
in the literal adjustment table output area 
for building a literal adjustment table 
logical record. 

Method . The routine is called each time 
a literal adjustment table logical record 
is to be built. The routine advances 
through the buffer at 16-byte increments 
until the block is filled, at which time 
the buffer is written onto the alternate 
overflow file. The alternate overflow 
file is designated as that file which is 
neither the prime overflow file, SYS003, 
nor the current text file. Which file is 
designated is contingent on the number of 
passes through the text stream which were 
executed by the previous phase, Phase F7 . 


SYSL - System List 


SYSL outputs a 121-character line to the 
system list data set, SYSLST. 


Method. The SYSL option bit is tested. 
If set, the line is written on SYSLST. 
If not set, a return is executed. 


MAINLINE CONTROL 

If the external symbol dictionary is not 
in core, it is fetched one segment at a 
time using the segment residence table. 
The adjustment table is constructed from 
control sections on the external symbol 
dictionary by accumulating their lengths 
and aligning to the next higher double 
word. 

Another pass through the external 
symbol dictionary outputs the listing and 
cards item by item. These consist of 
name, type, ID, address, length, and 
LDID , as appropriate, on the listing; and 
name, type, address alignment, and length 
or LDID on the cards , with one ID per 
card to identify its first SD, PC, ER, 
or XD type. 

The adjustment table built in FI 3 and 
the literal base table are used to build 
the literal adjustment table. 
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PHASE F8 


FINAL ASSEMBLY 


OVERALL OPERATION (FLOWCHARTS 29-36) 

Phase F8 makes the final pass through the 
program text, which is read from SYS001 
or SYS002, depending on the number of 
iterations. During this pass, any oper- 
ands which were not processed by Phase F7 
are processed from the last symbol table 
created during that phase. 

Any self-defining values which were not 
converted to their binary values are now 
processed. All address expressions are 
evaluated, and the results are substituted 
for the expressions. Addresses are re- 
structured into a base register and dis- 
placement format. 

At the same time, the completely 
assembled text is written in relocatable 
object program format on SYSPCH or SYSLNK , 
and in program listing format on SYSLST. 

Invalid statements are flagged on 
SYSLST. Error records are created and 
written on the overflow file, SYS003, to be 
listed by the Post-Processor Phase. 

The relocation dictionary 'is built 
during Phase F8 , and segments can overflow 
onto SYS 003. 


I/O FUNCTIONS 

Phase F8 passes through the text stream 
once scanning the logical text records 
which were output from Phase F7 . See 
Figure 8. The phase inputs the literal 
adjustment table blocks from the alternate 
overflow file and outputs cross-reference, 
relocation dictionary, and diagnostic rec- 
ords onto the overflow file for subsequent 
processing by FPP. The cross-reference and 
relocation dictionary records are output at 
the PUT level where the cross-reference 
records are inserted into the cross- 
reference output stream from where they 
left off in Phase F7. In addition, records 
are output to the SYSLST, SYSPCH, and SYSLNK 
files via the output subroutines SYSL and 
SYPUNH. 


PHASE ORGANIZATION 

The following control sections comprise 
Phase F8 : F8I, F8C , F8M, F8A, F8P , F8D, 
F8V, F8L, F8N, and F8S . These are self- 
contained routines which may be link-edited 
separately. Communication between routines 
is via registers and the ACT table. When 



*if symbol table overflow occurred in Phase F7, 
SYS001 and SYS002 may be reversed. 


Figure 8 . I/O Flow for Phase F8 


FI passes control to Phase F8, the above 
routines are loaded into core and remain 
there until the completion of Phase F8 
execution. 


F8I - Phase F8 Initialization and I/O 

On entry to Phase F8, the overflow file, 
SYS003, is positioned for writing the re- 
location dictionary and diagnostic records . 
If any literal adjustment table records 
were written by Phase FI, the first literal 
adjustment table block is read from the 
alternate overflow file. The literal 
adjustment table pointers are initialized 
to point to the first logical record con- 
tained within the literal adjustment table 
input area. The relocation dictionary 
type indicator is inserted into the first 
byte of the relocation dictionary output 
buffer (the cross-reference output buffer 
was initialized in Phase F7) , and control 
is transferred to Phase F8 mainline 
control, F8C. 


32 











F8I Subroutines 


GETXTM - Get Text and Move 

GETXTM retrieves the next logical record 
from the' input text stream and moves the 
record to an area specified by the user. 
Each time the routine is entered, a pointer 
is advanced to the next logical record in 
the input text stream. The record is moved 
from the input buffers to an area specified 
by SP1. The input stream is double-buf- 
fered to increase input speed and process- 
ing efficiency. If an end-of-file label is 
encountered, the EOF flag is set and passed 
to the caller. GETXTM sets a switch which 
prevents any further processing of the text 
stream. 


GETLAT - Get Literal Adjustment Table 

GETLAT points to the next literal adjust- 
ment table logical record contained within 
the literal adjustment table input area. 

The routine is called each time a new lit- 
eral adjustment table record is desired. 

On exit, SP1 contains the first byte ad- 
dress of the next literal adjustment table 
logical record. The routine advances 
through the buffer at 16 -byte increments 
until the block is empty, at which time the 
next block is read from the alternate over- 
flow file. SPl returns with 0 if there are 
no more literal adjustment table entries. 


PUTRLD - Put Relocation Dictionary 

PUTRLD points to the next available area in 
the relocation dictionary output area for 
building a relocation dictionary logical 
record. The routine is called each time a 
relocation dictionary is to be built. SPl 
returns with the first byte address of the 
next available record location in the relo- 
cation dictionary output buffer. The rou- 
tine advances through the buffer at 6 -byte 
increments until the block is filled, at 
which time the buffer is written onto the 
overflow file, SYS003. The first block 
written onto the overflow file is NOTEd for 
future reference. 


WTERR - Write Error Message 

WTERR outputs a printer-formatted diagnostic 
message onto the overflow file for eventual 
listing by the Post Processor Phase, Phase 
FPP . 

WTERR is called with SPl pointing to the 
first byte of a 121-byte error message. 


PHCLS - Phase F8 Close 

The phase close subroutine POINTS the text 
file, embeds end-of-file labels into the 
relocation dictionary output stream, and 
writes their buffers onto the overflow 
file. The following nine parameters are 
passed to the Post Processor Phase through 
the assembler control table: 

CTPCHI (1 byte) - Option bits for SYSPCH, 
SYSLNK, LIST, XREF , and TEST. 

CTCXRF (2 bytes) - Count of XREF blocks 
contained on the overflow file. 

CTCRLD (2 bytes) - Count of relocation 
dictionary blocks contained on the 
overflow file. 

CTCERR (2 bytes) - Count of the number of 
error messages contained on the overflow 
file. 

CTRXRF (4 bytes) - Location of the first 
XREF block located on the overflow file. 

CTRRLD (4 bytes) - Location of the first 
relocation dictionary block located on 
the overflow file. 

CTRERR (4 bytes) - Location of the first 
diagnostic message located on the over- 
flow file. 

CESDNO (2 bytes) - Deck number. 

CTITLE (4 bytes) - Deck identification. 

PHCLS transfers control to FPP, the Post 
Processor Phase. 


F8C ~ Mainline Control (Flowchart 29) 

Control is passed to F8C for each record; 
F8C in turn passes control to the various 
routines necessary to process that partic- 
ular record. Program sequences within the 
mainline control that perform specific 
functions are described below. 


F8C Subroutines 


ERL0D8 

Errors encountered in Phase F8 for. a rec- 
ord are appended to the corresponding Phase 
F7 error record and are put in the record 
work area F8W0RK (ACT) . 
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ENDOFF 


Using Table 


ENDOFF processes any error encountered in 
the final record and exits to the F8I 
phase close routine. 


SETWBP 

CTXWBP (ACT) points at the first symbol work 
bucket in the input record. If there are 
no symbol work buckets, CTXWBP (ACT) will be 
set to zero. CTXABP (ACT) is set to point 
at the appended fixed field of the input 
record. 


SRLIGN 

SRLIGN makes alignments as necessary on all 
machine ops, literal DC, DC, DS , CCW, and 
CNOP . TXALIN in F8WORK(ACT) is investigated. 
If this 3-bit designator is non-zero, one 
to seven alignment bytes are output. 


F8M - Machine Operation Processor 
(Flowchart 30) 

F8M processes the operand field of all 
machine ops. Decomposition, adjustment, 
and formatting occur in this routine. The 
decomposition routine using table is shown 
in Figure 9. F8M is entered from the F8C 
routine. 


F8M Subroutines 


Using 

Table 

Poi nter 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


00 - Register not used 


FF j 6 — Register in use 



External Value 

Symbol 

Dictionary 

ID 


The using table is used by the decomposition routine. The using 
table pointer and the using table are parallel tables. Every 
decomposable value is checked against the complete table for 
possible decomposition. 

Figure 9. Decomposition Routine Using 
Table 


RR1 , RR2 , RR3 , RR4 , RXl , RX2 , RSI, RS2 , SI3, 
SI4 , SSI, SS2 

These subroutines scan the operand fields 
of machine operations. They do a syntax 
check and format the instruction building 
area, F8INST(ACT). See Figure 10. These 
subroutines call on lower level subroutines 
which do semantic checks , and call on 
another set of subroutines which do ex- 
pression evaluation and decomposition. 

RR4 refers to extended mnemonic register- 
to-register instructions. RX2 refers to 
extended mnemonic register-to-indexed- 
storage instructions . 

F8AREX does a complete syntactic scan on 
each expression and sets a group of semantic 
flags. The necessary flags are investigated 
by the individual routines, and error proce- 
dures are taken where necessary. 


F8A - Assembler Operation Processor 
(Flowchart 31) 

F8A processes the following assembler ops : 
MNOTE, PRINT, SPACE, EJECT, PUNCH, REPRO, 
TITLE, ENTRY, EXTRN , START, CSECT, DSECT , 
COM, EQU, ORG, END, LTORG , USING, DROP, 
literal DC, DC, DS , CCW, and CNOP. 

F8A is entered from the F8C routine. 


F8A Subroutines 


PRINTB 


This routine investigates the operand field 
of all print statements. A syntax check 
is made, and from one to three conditions 
are set per statement. 
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Operation Code 








F8INST (ACT) +1 + 2 +3 


Rl/Li 

1 1 i 2 l 

r 2'%' X 2' l 2 

b 1/ b 2A 


b 2B 


U 1» U 2A 


1 

1 

1 

1 

1 

1 

1 

1 


n 

1 

1 

l 



+4 +5 +6 +7 +8 


L 


J 










+9 +10 +11 +12 +13 



Figure 10 . Instruction Building Area 


ON 

sets 

F8PON (ACT) 

to 

0 

OFF 

sets 

F 8 PON (ACT) 

to 

FF16 

GEN 

sets 

F8PGEN (ACT) 

to 

0 

NOGEN 

sets 

F8PGEN (ACT) 

to 

FFie 

DATA 

sets 

F8PDAT (ACT) 

to 

0 

NODATA 

sets 

F8PDAT (ACT) 

to 

FFi6 


SPACE 

The SPACE routine does a complete syntax 
check and, if necessary, checks semantics, 
and does expression evaluation. A switch, 
SPACSW (ACT) , is set to FF]_g on a valid 
SPACE statement and to AA]_5 on an error 
condition. SP2 is set to the number of 
lines to be spaced. 


EJECT 

Sets a switch, EJCSTW(ACT) , to FF]_g. 


PUNCHB 

Sets a switch, REPSW(ACT), to 1. 

REPRO 

Sets a switch, REPSW(ACT), to 3. 

TITLEB 

Sets a switch, REPSW(ACT), to 7. 

MNOTST 

Sets a switch, REPSW(ACT), to 15. 

ENTRYB 

The ENTRYB routine in Phase F8 is only an 
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error checking routine. All actual 
processing has been completed in Phase F7 . 


EXTRNB 

The EXTRNB routine returns control to main- 
line control. EXTRN processing is com- 
pleted in Phase FI . 


STARTB 

The start routine checks the private code 
switch, CTPCSW(ACT). If private code is 
not initiated, the non-reentrant switch is 
turned on. If private code has been ini- 
tiated, the start statement is ignored, 
and control is immediately returned to 
Phase F8 mainline control. 


CSECTB 

The CSECTB routine checks if the new exter- 
nal symbol dictionary ID is different 
from the current external symbol dictionary 
ID. If not, control is immediately re- 
turned to Phase F8 mainline control. If 
different, current type, external symbol 
dictionary ID, and current adjustment base 
are set, and the non-reentrant switch is 
turned on. 


DSECTB 

The DSECTB routine checks if the new exter- 
nal symbol dictionary ID is different from 
the current external symbol dictionary ID. 
If not, control is immediately returned to 
Phase F8 mainline control. If different, 
current type and external symbol dictionary 
ID are set. Current adjustment base is set 
to zero, and the non-reentrant switch is 
turned off. 


COMB 

The common routine is the same as the DSECTB 
routine. The non-reentrant switch is turned 
on. 

NOTE: The reentrant error switch, CTRENT- 

(ACT) , is a one-byte cell set by an ini- 
tialization routine to zero. A violation 
of reentrant code is detected by F8M, and 
the associated error routine sets 
CTRENT(ACT) to FFi6- The switch is in- 
vestigated by Phase FPP, and, if the setting 
FF]_6 has occurred, the appropriate error 
message is logged. No message for possible 
reentrant error occurs in line. 


CCWB 

The CCWB .routine processes the operand field 
of CCW statements. A complete syntax and 
semantic check is made. The instruction 
building area is formatted for output. 
Through the F8D routine, relocation diction- 
ary entries are made for the second operand 
of CCW statement. 


CNOPB 

This routine places as many BCR instruc- 
tions as necessary in the instruction 
stream. 


EQUB 

The equivalence routine puts the equated 
value into the address location for printed 
output. 


ORGB 

The ORGB routine returns control to mainline 
control. Processing is done in Phase F7. 


ENDB 

The ENDB routine does a syntax check and 
sets the end switch ENDSWH (ACT) for the 
Post Processor to put out the correct end 
card. It also formats the printout of the 
end record. 


LTORGB 

This routine tests to see if literals are 
to be put out. If they are, the literal 
adjustment table is input, and the location 
field is set to the address of the first 
literal to be output. 


USINGB 

This routine does a complete syntax and 
semantic check on the operand of a using 
statement. A using table pointer is set to 
FF for each register being used, and the 
correct value and the external symbol dic- 
tionary ID are set in the corresponding 
using table entry. 


DROPB 

This routine does a complete syntax and 
semantic scan on the operand field of a 
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DROP statement. The using table pointer is 
set to 0 for each register dropped. 


LITERB, DSB , DCB 

Switches are set for proper branching with- 
in the F8D routine,- and control is passed 
to F8D. 


F8P - Output Routine (Flowcharts 32-33) 

At entry, the current text record at 
F8W0RK(ACT) is moved into INPUT work area. 

If this record is one of the edited types, 
a partially formatted left side at F8INST- 
(ACT) is moved into LFTHLF work area. 

F8P has four entry points: F8P , BLDIMG, 
COMMENT, and LOADRA. Text records are 
passed to F8P as they are encountered in 
the text stream. 

• F8P processes edited text records 
(type 100) . 

• BLDIMG builds a source image from gen- 
erated edited records (type 110 or 111) . 

• COMMENT loads the right side for source 
records (type 000, 010, or 011) and puts 
an error line for error records (type 
001 ). 

• LOADRA prints an error line if the last 
record is an error record (type 001) . 

As an example, if the PRINT ON, DATA 
and GEN options have been requested, the 
following action is taken (as applicable) : 

• F8P entry (type 100 records) - The 
left side of the print line buffer is 
loaded, and the entire buffer is dumped. 

• BLDIMG entry (type 110 or 111 records) - 
A source image is constructed and treated 
like a source record (type 010 or 011) , 
which is then processed like an edited 
record (type 100) . 

• COMMENT entry (type 000, 010, or Oil 
records) - The previous right side of 
the print line buffer is printed (if 
still loaded) , and the information is 
put in the punch buffer. The right side 
of the print buffer is loaded with the 
current record. 

• COMMENT entry (type 001 record) - An 
error line is printed if the error 
indicator is on. 


• LOADRA entry (type 001 record) - The 
error record is reformatted to include 
the statement number , and an error 
indicator is turned on. 

F8P has the following functions (acronyms 

within parentheses refer to flowchart 

terms) : 

• Format left side (LOADLH) and right side 
(LOADRH) of print line and print entire 
line (CHKSWH) . 

• Format text output cards (GOTXT) and 
punch them (DUMP) . 

• Build source image from generated edited 
records (BLDIMG) . 

• Put title in page heading and put page 
heading for each new page (PGEHED) . 

• Reformat error record to include the 
statement number (WTERR) and print 
error line (LOADRERR) . 

• Space when SPACE is encountered and 
eject to a new page for EJECT and TITLE. 

• Format and print MNOTE message. 

• Punch REPRO and PUNCH cards. 


F8D - DC Evaluation (Flowcharts 34-35) 

Phase F8 mainline control calls F8D each 
time a DC, DS, or literal DC is encountered. 
The low order byte of register 13, at entry, 
is set as follows: 00 = DS, FF = DC, 
mixed = literal DC. 

F8D processes an entire DC statement 
each pass. The print routine, F8P , is 
called as many times as necessary. There 
is one DC work bucket (.15 bytes) in the 
appended fixed field for each operand in a 
statement, and each operand may contain 
one or more constants. See Figure B5. 
Exceptions are character, hexadecimal, and 
binary type DCs which may contain only one 
constant per operand. 

Relocation dictionary entries are made 
for A- , Y-, and V-type relocatable con- 
stants which meet minimum length specifica- 
tions. However, no relocation dictionary 
entries are made for address constants 
within a dummy section or common, nor for 
address constants whose operand address 
is within a dummy section. 

Upon completion of a statement, F8D 
returns to F8C. 
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F8N - Phase F8 Floating and Fixed-Point 
Conversion (Flowchart 36) 

This routine does all floating- and fixed- 
point conversion in declarative (DC) state- 
ments. It is called by the Phase F8 DC 
evaluation routine (F8D) once for each 
constant in a floating-point or fixed-point 
DC operand. At entry, Register No. 1 points 
to the first byte of the constant to be 
converted (the first byte past the left 
delimiter) , and Register No. 10 points to 
the corresponding DC work bucket in the 
edited text record. The DC work bucket 
contains the DC type, length modifier, 
scale factor, and external exponent modifier. 

After the conversion has been completed, 
program control is returned to F8D evalua- 
tion with three pointers: Register No. 1 
points to the right delimiter, Register 
No. 2 points to the converted value of the 
constant (eight bytes) , and Register No. 13 
points to an error flag. If Register No. 13 
is zero, no error has occurred. 


F8V - Expression Evaluation Subroutine 

This subroutine is the same as F7V with 
the exception of XREF, but the two are 
loaded separately in their respective 
phases . 


F8L - Log Error Subroutine 

This subroutine is the same as F7L, but 
the two are loaded separately in their 
respective phases. 


F8S ~ Symbol Table Subroutine 

This subroutine has one entry point, STGETR. 
This tests whether the requested symbol is 
in the table and, if so, gives the address 
of the first byte in the entry after the 
name field. If not, zero is returned. 
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PHASE FPP ~ POST PROCESSOR 


OVERALL OPERATION (FLOWCHARTS 37 AND 38) 

The Post Processor Phase, Phase FPP f is 
divided into two control sections which are 
executed serially. 

The first section, FPP, reads the RLD 
and cross-reference records from the over- 
flow file (SYS003) , sorts them, writes RLD 
on SYSPCH and/or SYSLNK and SYSLST and the 
XREF records on SYSLST. FPP also writes 
the END object card on SYSPCH and/or SYSLNK 
after the RLD. See Figure 11. In the event 
there are too many cross-reference record 
entries to be held in main storage at one 
time, SYS001 and SYS002 are used for sort- 
ing. 

The second section, FD, reads error 
records from the overflow, file (SYS003) and 
formats an error message by matching a code 
in the error record against a message table 
in main storage. FD also prints the sta- 
tistical information (statements flagged) , 
and returns to the DOS control program. 


FPP FUNCTIONS (FLOWCHART 37) 

FPP produces the relocation dictionary and 
the cross-reference list, if requested. 



Figure 11. I/O Flow for Phase FPP 


FPP sorts the relocation dictionary 
entries by address. The sorted dictionary 
is written onto SYSLST and SYSPCH and/or 
SYSLNK. The loader END record is construct- 
ed and written onto SYSPCH. 

If the EXEC statement did not specify 
NOXREF, FPP sorts the cross-reference table 
entries by symbol. The sorted table is 
written on SYSLST. 

FPP branches to Section FD. 


FPP SUBROUTINES 


GTOX - Cross-Reference List Checker 

This routine checks for the cross-reference 
list output option. 


READR - Relocation Dictionary Reader 

This routine reads the relocation dictionary 
records from input tape and stores them. 


READX - Cross-Reference Reader 

This routine reads cross-reference records 
from input tape and stores them. 


SET0T1 - Relocation Dictionary Writer 

This routine writes all relocation dic- 
tionary data from main storage on SYSLST, 
SYSPCH, and/or SYSLNK. 


SET0T2 - Cross Reference Writer 

This routine writes all cross-reference 
data from main storage. 


WR1XRF ~ Cross-Reference Writer 

This routine writes cross-reference on 
SYS001 (or SYS002) for sorting. 


XRFLOD - Cross-Reference Starter 

This routine starts the cross-reference 
input pass. 
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Other FPP Subroutines 

• CHKSWH - Jump Table Sort 

• FPP - Phase Initialization (FPP) 

• EPRLZ - Merge Tape Writer 

• EP2 - Merge Tape Writer 

• ESORT - Input Data Sorter 

• GTOR - Control Table Reader 

• PPIN - Phase PP Initialization 

• RD1XRF - Cross-Reference Record Merger 


FD FUNCTIONS (FLOWCHART 38) 

The Phase FPP diagnostic, FD, reads the 
error records from the overflow file 
(SYS003) . Table lookup of error numbers 
is performed to find the corresponding 
error message. The statement number and 
message number are converted to printable 
format and listed with the error message on 
SYSLST. 

The functions of this phase are as 
follows : 

• Write diagnostic messages. 

• Accumulate and print the total number 

of error statements in the entire assem- 
bly. 

Before printing any error messages, a 
check is made to determine if any relo- 
catable Y-type constants have been used in 
the program. If any have been used, mes- 
sage 46 prints as a flag to the' programmer. 
The limited addressing capability of the 
Y-type constant, due to it being only two 
bytes long, could present problems if the 
program is run on a system with over 
65,536 bytes of storage. 

Following the flagging of Y-type con- 
stants , a check is made to determine if 
there are any error records to be flagged; 
if not, the word 'NO' is inserted into the 
"STATEMENTS FLAGGED. . . " message, this 
message is printed, and the phase returns 
to the caller. If there are error records 
to be flagged, each error statement number 
is listed with an appropriate message 
identifying the error. A total of the 
number of statements flagged is accumulated 
and printed. The phase exits to the DOS 
control program. 


FD SUBROUTINES 
FD 

FD locates the error block count, tests the 
Y-type constant indicator, and if necessary, 
points to message 46 in preparation for 
printing the "AT LEAST ONE RELOCATABLE -Y 
TYPE CONSTANT. . ." message. If there are 
no relocatable Y-type constants in the pro- 
gram, it branches to MLOO. 


GETERR - Error Record Reader 
This routine reads error records. 


MLOO - Error Record Tester 

This routine tests if there are any error 
records to be processed. If there are no 
error records to be flagged, the "NO 
STATEMENTS FLAGGED. . ." message is built, 
then a branch to MLll occurs to list the 
message. If there are error records to 
be listed, this routine exits to ML01A. 

ML01 - Error Record Getter 

This routine gets the next error record. If 
the last error record has been read, a 
branch occurs to ML10. 

ML01A - Error Statement Getter 

This routine gets the error statement num- 
ber and accumulates an error statement 
total . 

ML01B - Error Statement Converter 

This routine converts the error statement 
number into decimal for listing and points 
to the appropriate error message. 

MLQ3 - Error Message Converter 

This routine converts the error message 
for listing and lists it. 

ML10 - Statement Printer 

This routine prints the total number of 
statements flagged. 

MLll - Error Message Lister 

This routine lists the error messages. 
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PHASE ABT (ASSEMBLER ABORT) 


This phase is entered when it is necessary 
to abort an assembly. An appropriate mes- 
sage is put out to SYSLST and SYS10G and 
the run is terminated via EOJ. 

Two categories of problems force an 
abort: uncorrectable I/O errors and im- 
proper environment. The first entry is via 
the ERROPT and EOFADDR exits of the DTFs. 

It is recognized by the fact that General 
Register 15 contains a value (the DTF 
address) . In this case the offending unit 
is recognized by the unit code contained in 


the DTF. If this code is unrecognizable or 
is the code for SYSLST, the message is put 
out on SYSLOG only. 

If General Register 15 is zero on entry 
to the abort phase the problem is assumed 
to be improper environment. In all cases 
the run is terminated by EOJ and the 
remainder of the job is bypassed. 

General Registers 2 and 3 are assumed 
to contain up to 8 error codes of 1 byte 
each. A message is prepared for each 
code . 
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FLOWCHARTS 


***♦ 41 ********* 

* BALR FROM * 

* FI. F2, OR F3 * 

* * 
*************** 


READ 
WRITE 

****»B1 ********* 

* SAVE 

* REGISTERS 

* IA THRU I 

* 

**************** 


****C1********* 

POINT 
REGISTER 
l TO DTP 
VECTOR 

*************** 


* FI ORDFR 

* BYTES OF 

* DTF VECTOR 

* * 
************** 


****F1 ********* 

POINT 

RFGISTER l 
TO DTF 


****A 2********* 

* BALR FROM * 

* FI. F?» OR F3 * 

* * 
*************** 


**** 43 ********* 

♦ BALR FROM * 

♦ FI, F2, CR F3 * 


****44* ******** 

* BALR FROM * 

* FI, F2, OR F3 * 

* * 
*************** 


****45********* 

• BALR FROM • 

• FI, F2, OR F3 * 

• * 
*************** 



***** 02 ********** 

*****Q3********** 

• SA* 

* VE * 

***** 54 ********** 

♦****B 5* ********* 


* SAVE • 

• SAVE * 

* SAVE * 


* REGISTERS * 

* REGISTERS * 

* REGISTERS * 

* REGISTERS * 


* 1A THRU 1 * 

* 14 THRU 1 * 

* 1A TO 1 * 

* 1A THRU 0 * 


***************** 


***************** 

***************** 


YES LAST *. 

CHECKED^#* 


*****H 1 ********* 

* RESTORE 

* REGISTER 0 

* TO ENTRY 

* VALUE 

* 

**************** 


****** jl *********** 

READ/WR ITE 

OTP POINTED 
* TO BY REG 1 * 

************* 


**«*C 2 *** ****** 

POINT 
REGISTER 
I TO OTF 
VECTOR 

*************** 


YES .* LAST 
I/O 

*• CHECKED 


****E2******* 

SET « 

HI ORDER 
BIT OF 
VECTOR 
TO 0 * 


****C 3* ******** 

POINT 
REGISTERS 
l AND 15 
TO DTF 
VECTOR 


****C4*********i 
POINT 
REGISTERS 
1 ANO 15 
TO DTF 
VECTOR 
*************** 


♦***C 5* ******** 

POINT 
REGISTERS 
l AND 15 
TO DTF 
VEC TOR 
*************** 


*****03********** 

*****04********** 

*****05******* 

**• 

* POINT * 

• POINT * 

* POINT 


* REG 1 * 

* REGISTER * 

• REGISTER 


* TO DTF * 

* 1 TO DTF * 

* 1 TO DTF 



***************** 


*** 

X 

X 

X 



YES .* LAST 


*«**F 2********* 

POINT 
REGISTER 
l TO OTF 


************* 


.****H2********* 

MOVE 

PARAMETER 
LIST TO 
ALIGNED 
WORK AREA 
*************** 


* DO I/O * 

************* 


I/O .♦ 

*. CHECKEO .* 

I/O •* 

*. CHECKED •• 

*. • * 

*. •* 

*- .♦ 

*, .* 

* NO 

* NO 

X 

X 

*****F3******* 

♦****F A*** 1 **** 

* SET • 

* SET * 

* HI CROER • 

* HI ORDER * 

* BIT OF » 

♦ BIT OF * 

* VECTOR * 

» VECTOR * 

* TO 0 * 

* TO 0 * 


************** 

X 

X 

******03*********** 

******GA*********** 

CHECK 

CHECK ^ 

OTF POINTEO 

DTF POINTED 

• TO BV REG l » 

* TO BY REG l * 

************* 

************* 



x ! 


YES .* LAST •. 
I/O 

*. CHECKED .♦ 


***AF 5******* 
SET • 

HI OROER 
BIT OF 
VECTOR 
TO 0 • 

i************* 


************* 


****H4*********> 

MOVE 

PARAMETER 
LIST TO 
ALIGNED 
WORK AREA 

***************; 


****** J3*********** 
*— POINTS ^ 


•***K 2 *** ****** 


*************** 


:****|(3 ********** 
* 

RESTORE * 

REGISTER * 

L A THRU l * 

* 

**************** 


******* ******** 


*************** 


^ ——If * 

DTF POINTED 
* TO BY REG 1 * 

************* 


*****j5********** 

* STORE * 

* NOTE VALUES * 

* AND • 

* RESTORE * 

* REGS IA-0 ♦ 
***************** 


****** 5 * ******** 

* POINT 

* REGISTER 1 

.* AT 

• SAVED 

• VALUES 
**************** 


Chart 1. MAC - Macro Generator I/O 
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**** 


**** 


****£!********* 
SET BASES 
1-COMREG 
12*R0UT INE 
13*C0MN0N 


****** 


♦***A 2*** ****** 

* ASSEMBLER * 

* ENTRY • 

* • 
*************** 


**** 

* * 

* B2 *. 

* * 
**** 


ALL 

DATBL 

ENTRY 

USED 


******A4*********** 

OPEN 

*-*-*-*-*-*-*-* * 

CHECK 

* NON-OA * 
UNITS 


**•* 

* * 

* K3 * 

* * 
**** 


B2 


*. 


YES .* UTILITY *. 
---*. FILES .* 
♦.ASSIGNED .* 


♦****C I********** 

* ABERR * 

*-*-*-*-*-*-*-*-* 

* PRESET *• 

* MSG 114 * 

* * 
***************** 


NO .* UTIL l 
...*. FILES 

*. CHECKED . 
». .* 
*• .* 

* YES 


.* OUTPUT *. YES 
. OPTIONS .*... 
♦.SUPPORTED.* 


**** 

* * 

* HI * 

* * 
**** 


*-*-*-*-*-#-*-*-* 
.* « 

•PRESET MSG U4 * 
* * 

***************** 


•* DATBL *• EQ 
,.X*. .*... 

*. DEVTA8 .* 


C3 


*. 


NO .* DEVTAB *. 
,..*. ENTRIES .4 
*. USED .* 
*. .* 

*• •* 

* YES 


*****C3********** 
* * 

* SAVE TRIAL * 

* SIZE * 

* VALUES * 

* * 
***************** 


«• *• 

YFS .* DUAL *. 
...*. ASSIGNS .♦ 
• *• VALID •* 


**** 

* * 

* G2 * 

• * 
**** 


♦PRESET MSG 113 * 

• * 

***************** 


**** 

• * 

* B2 * 

* * 
**** 


♦****F 2********** 

* ABERR * 

*-*-*-*-*-*-*-*-* 

* *• 

♦PRESET MSG 115 * 
* ♦ 

***************** 

**** 

* * 

* G2 *... 

* * . 

**** 


*****G1********** 
* * 

* MOVE * 

...* DEVICE CODE * 
. * TO DATBL ♦ 

• * * 

X ***************** 

**** 

* ***** 

* B2 * * 

* * HI *••• 

***** * . 

**** X 
.*. 


G2 


• *• 


*. 


.* OUTPUT 
. UNITS 
*. VALID 


*. 


**** 

* * 

* J2 * 

* * 
**** 


.* 


HI 


*. 


***************** 


♦****K 1********** 

* QVFRLAY * 

* CTFSD WITH * 

H* OTFMT - * 

* PUT UNIT IN * 

* OPENC LIST * 

***************** 


*****H 2* ********* 

* ABERR * 

*-*-*-*-*-*-*-*-• 

* *• 

♦PRESET MSG 113 * 
* * 

***************** 


***** j 2********** 
* * 

* ENTER NON-OA * 

* UNITS IN * 

* OPENC LIST * 

* * 
***************** 


**** . 

X 

♦****K 2*** •**♦**♦ 

* CALC AVAIL * 

* CORE * 

* ANO *X. 

* TRIAL SIZE * 

* BUFFER * 
***************** 


YES .* DEVTAB ♦. 
•••*• LIST G.T. .*X«. 
*. TRAIL •* 


• *• 

B4 *• 

.* ANY *. 
.* ENTRIES ♦ 
*• IN ABORT 
*. LIST .« 
*• •* 

*. .* 

YES 


****C4********* 

* LINK * 

* TO * 

* ASSEMABT * 

*************** 


♦****G 3* ********* 


***************** 


♦****H 3*** ******* 

• ABERR * 

*_*_*_*_*_*_*_*_♦ 

X* *v 

♦PRESET MSG 112 * 

* * 
***************** 


***** 
*02 * 
* E4* 


IOENTIFY 
ERROR 
TYPE 

***************: 


♦♦•*F4********* : 

CALCULATE 

OFFENDING 

UNIT 

***************: 


****G4« ******** 

PLACE 

ABORT CODE 


*************** 


♦***H4*** ****** 

STEP 
ABORT 
LIST 
POINTER 

*************** 


**** J 4********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 


*****K3«* ******** 
♦PICK AND STORE ♦ 

* SMALLEST OF * 

* 3SAVE0 * 

* SIZES AS * 

* FINAL SIZE * 
***************** 


*****35********** 

* MPNTR * 

*-*-*-♦-•-*-*-*-* 

* POINTS * 

* SYSOOl TO * 

* SYS003 * 

***************** 


* WRITE DUMMY * 

* REC SYSOOl TG * 

* SYS003 * 

***************** 


*•**05* ******** 


[***************: 


****E 5* ********* 

HASH OPCODES * 
IN GLOBAL * 
DICTIONARY * 
ANO CHAIN * 
SYNONYMS * 
**************** 


♦****F 5********* 

* GET SRC 

* READ FIRST 

* SOURCE 

* STATEMENT 

**************** 


***** 
*03 * 
* Al* 
* * 


***** 
*04 * 
• G2* 


*«**J5********* 

TABLE ICTL 
VALUES IN 
COMMON 

*************** 


REAO 

NEXT 

STATEMENT 

*************** 


*♦** 

* * 

* A3 * 

* • 
**** 


***** 
*03 * 
* Al* 


Chart 2. FI - Phase FI 
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***** 
*03 * 
* A2* 
* * 


**** A 1 ********* 

¥ * 

* ft FROM FI * 


**** 

*03 * 

* R1 *.X 


DPIVFR X 

*«***A ?********** 
♦OETSRC OAB3* 

*-*- *-*-*-*-*-*-* 

*P EAO FM SYSIPT *X. 

* WRITE SOURCE * 

* ON SYSOOl * 
***************** 


**** 

* • 

* B3 * 

* * 
**** 


****** 1 ********* 
* 

* initialize 

* FOR NEW 

* STATEMENT 


«*C1*****«* 

* GSCAN * 
**-*-*-*-*-*-** 
•SCAN NAMF FIELD* 
♦PUT INTO F.T.* 


**C3******* 

* ENTOCT * 
**-*-*- *«*.*_** 

• FIND OR FNTER * 
* PP CODE IN * 
♦GLCR. OICT.* 


««Q1******* 

* GSCAN * 
**-*-*-*-*-*-** 
♦SCAN OPERATION * 
♦FID PUT INTO * 


**** 

* * 

* R3 * 

* * 
**** 


***** 
*04 * 
* Al* 


•NO* MUST PE 
WACPO INST. 


**E3******* 

* SMTSQl * 
**-*-*-*-*-*-** 

♦CHECK STATEMENT* 
* SEQUENCING * 

* * 
*********** 


*****F3*** ******* 

* EDIT NAME * 
•FIELD IF PR p S * * 

* ELSE INSFRT * 
♦NULL FIELD INTO* 

* OUTPUT * 

***************** 


**G3******* 

* NDSMT3 * 
**-*-*-*-*-*-** 

♦WRITE F*T • FOR * 
* NAME FI FLO * 

* * 
*********** 


*«***H3 ********** 

* EDIT OPERAND * 

* fields, CHECK * 
♦FOR P.P. AFTER * 
♦K.W.P.. IF ANY,* 

* OUTPUT ERROR * 
***************** 


**j3«*****« 

* MOVE IN * 

* LITTLE •A* * 

* POINTER TO * 

* FDITED TFXT * 

* RFCORD * 
*********** 


.* ANY ♦. 
YES -* MORE 
...*. PARAMETERS 


**04******* 

* ENTDCT * 
**-*-*-*-*-*-** 

. X*ENTFR PP CODE * * 
IF ABSENT, UT3* 
N/P ADOR TO GD 
*********** 


*****C4********** 

* ENTER SVSFCT, * 

* SYSNDX INTO * 
•TRAN OICT. CHECK* 

* FOP ILLEGAl * 

* NAME FIELD * 
***************** 


**04******* 

* LOOKUP * 
**.*_*.*_*_*_** 
♦PUT NAME FI El D * 
* C S • P . ) INTO * 
♦L.D. t E.T.* 
*********** 


*****£4********** 

* SCAN * 

•EACH PARAMETER * 

* AND BUILD 
•EDITED TEXT FOR* 


*X. 


IT 


***************** 


**F4******* 

* FNTPCT * 
**_*_*_*_*_*_** 
*ENTR IN L.D. IF* 
KEYWORD PUT STD 
VALUF IN E.T. 
*********** 


.* ANY *. 

¥ MORE *. YES 
PARAMETERS .*... 


**K4******* 

* NDSMT3 * 

**-*_*.*_*.*-** 

• X*OUTPUT E.T. FOR*.... 
* END OF * 

* STATEMENT * 

*********** * 
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VALDOP 


**&?*♦***«* 

* SMTSQ1 * 
**-*-*-*-*-*-** 

* CHECK * 
* STATEMENT * 

* SEQUENCE * 


♦♦A3******* 

* GSCAN * 
**-*-*-*-*-*-** 

* SCAN OPERAND * 
* FIELD. PUT * 

* INTO F.T. * 


.♦IS OP FIELD*. YES 
* *• A DECLARATION.*.... 
*. .* 


**07******* 

* GSCAN * 
**^*-*~*_*_*_** 

.X* SCAN OPERAND * 
* FIELD * 


**£3******* 

* LOOKUP * 
**-*-*-*-*-*-** 

. X* PUT OPERANDS * 
♦INTO G.D. OR * 

* L.D..RESP * 


.♦IS OP FIELD*. YES 
. A SET .*.... 
*. STATEMENT.* 


**-*-*-*-*-*-* 
.X* SCAN OPERAND 
* FIELDS 


*****C3* ********* 

* INSERT * 

♦VALUE INTO F.T.* 

•X*TF S.D.T., ELSE*. 
*LITTLE *A* INTO* 

* F.T. * 

***************** 


*♦♦*♦ 01 ********** 

* GENERATE A * 

* BRANCH BASED * 

* UPON OP CODE * 

* AND RRANCH TO * 


**_♦_*_*_*_*_** 
•X* SCAN OPERAND * 
* F I FLOS * 


♦****E3* ********* 

* LOOK * 

* FOR S.S. IN * 
.X* OICT. MOVE *. 

* LITTLE * A* INTO* 

* F.T. * 

***************** 


****«F 7********** 

♦NEXT STATEMENT * 
♦IS EXPECTED TO * 
X* TO PE A *. 
* PROTOTYPE * 


**Q7******* 

* WRNERR * 

**-*_*-*_*_*-** 
•X* PUT PUT AN * 
*PRROR MESSAGE* 


*****£ 3********** 

♦ ♦ 

* END CARD * 

.X* IMAGE INTO *. 

* INPUT BUFFER * 

* ♦ 
***************** 


.* ARE WE *. YES 
.X*. IN A SYSTEM .*.... 
*. MACRO .* 


*****H3*** ******* 

* * 

* NOTE * 

• X*PRES FNT SYSSLB *. 

* ACDRESS * 

***************** 


*****H4********** 

♦ ♦ 

* SET INPUT * 

y* AS SYSSLB *. 

** IN GET SRC * 


♦****H <>* ********* 


♦(OPERAND FIELD) 


*****j ?********** 

* * 

* DEFINE MEW * 

X* INPUT *. 

* PARAMETERS IN * 

* GTSRC * 

***************** 


**K2******* 

* GTSRC i * 

* *_*_*_*_ *_*_** 

• X*GET NEXT CARD, * 
♦PUT INTO E.T.* 

* format * 
*********** 
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♦05 ♦ 

♦ Al* 
♦ ♦ ' 


**A2******* 

* GSCAN ♦ 
**-*-*-*-*-*—** 

.X* SCAN OPERAND ♦ 
♦ FIELOS ♦ 

* * 
*********** 


*****B ?********** 


***** 43 ********** 

♦ * 

♦ INDICATE * 

•X*POI NT CF DEF IN.*. 

♦ FOR THE OICT. ♦ 

♦ ♦ 
***************** 


♦♦♦♦♦ 
*04 * 
♦ A3* 


***************** 


***** 
*07 * 
* Bl* 


***** 
*04 * 
* A3* 


** 02 ******* 

* GSCAN * 
**_*-*_*-*.*_* 
.X* SCAN OPERAND 
* FIELD 
*- * 
*********** 


*****62********** 

* MOVE * 

* IN TYPE. * 

.X* LENGTH. SCALE *. 

* ATTRIBUTES * 

* * 
***************** 


.* ARE 
.X*. HE IN OPEN 
*. CODE 


***** 
*07 * 

* ei* 


**04******* 

* ASCAN * 
*_*_*_*_*_*_** 

SCAN TEE * 
ATTRIBUTES * 

* * 
*********** 


***** 
*07 * 
* Bl* 


***** 
*04 * 
* A3* 


A NOP* TITLE. MNOTE. MEXIT. CNOP. 
DROP. USING. ORG. PRINT. SPACE. 
PUNCH. ENTRY. COM. EJECT. LTORG 


***** 
*07 * 
* Bl* 


.X* WRITE EDITED *. 

* TEXT FOR MEND * 

* CARD * 

***************** 


♦****G3* ********* 
♦BWFORC 06R5* 

*-*-*-*-*-*-*-*—* 

. X*FCRCE OUT 6DITD*. 

* TEXT BLOCK ON * 

• SYS003 * 
***************** 


***** 
*06 * 
* 81* 


* ARE *. YES 
WE IN COPY „*.... 
*. MOOE .* 


.* ARE WE *. YES 
.X*. IN A SYSTEM .*.... 
*. MACRO .* 


*****K2********** 
• * 

* INSERT * 

.X* SIMULATED END * 

♦CARD IN BUFFER * 

• * 
***************** 


*************** 


****** 4 ********** 
* * 

* RESTORE * 
♦PREVIOUS INPUT * 

* DEVICE IN * 

* GET SRC * 

***************** 


****#J 5* ********* 
* * 

* POINT TC * 

X* PREVIOUSLY * 

* NOTEO ADORE SS * 

* * 
***************** 


***** 
*03 * 
* A2* 


***** 
*06 * 
* C2* 


***** 
*05 * 
* G2 * 


***** 
*03 * 
* A2* 
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***** 
*06 * 
* Bl* 


***** 
*06 * 
* B3* 


***** 
*06 * 
* B4* 


***** 
*06 * 
* 85* 


OCLSF * 

*«***B1 ********** 

* SAVE N/P OF * 

* RECORD ON * 

* SYS002. WRITE * 
♦OUT LAST BLOCK * 
♦OF LOCAL DICT. * 
***************** 


*****£ \ ********** 
* * 

* ZERO * 

* THE T.A. HASH * 

* TABLE * 

* * 
***************** 


*****01 ********** 

* SUBSET THE * 

* LOCAL * 

♦DICTIONARY JUST* 

* WRITTEN * 

* * 
***************** 


.* WFRE WF *. YES 
.EDITING PROG..*.... 
*. MACROS .* 


***** 
*06 * 
* C2* 


.♦ARE WF *. 
.♦PROCESSING *. NO 
*. SYSTEM MACROS.*... 


* READ INPUT * 

* FROM SYSIPT * 

* OR SYSSLB * 

* * 
***************** 


**** 

*****C3********** 

♦BWFORC « BWPITF * 
**-*-*-*-*-*-*—** 
» X *W RITE 80 BYTES * 

* OF SOURCE ON * 

* SYS001 * 

***************** 


***** 
*03 * 
* Bl* 


*****03********** 

* CHECK * 

* FOR CONT. * 
♦CAROS* SEQUENCE* 

* NOS.* ETC. * 

* * 
***************** 


****f 3********* 


*************** 


* MOVE * 

* RECORD TO * 

* BUFFER * 

* * 
***************** 


.* DOES *. 

NO .*ROOM EXIST *. 
•••♦•IN BUFFER FOR.* 


♦RECORD.* 

*. .* 

* YES 


♦***C 5* ******** 

* • 

► BR RETURN * 

► * 
*************** 


******04*********** 

WRITE 

**-*-*-*-*-*-*-♦* 
WRITE A BLOCK 
♦ON REQUESTED * 
UTILITY 
************* 


****E4********* 


*************** 


***** 
*06 * 
* F5* 


.* ANY *. 
.♦MACRO INS. *. NO 
. ENCOUNTERED .*... 


*****£] ********** 

* SET UP * 

* STANDARD ICTL * 

* PARAMS. SET * 
♦INPUT IN GTSRC * 

* TO SYSSLB * 
***************** 


HI 




•* IS MACRO 
► . INS N/P 
*. ADDRESS . 
♦.ZERO .* 
*. .* 

* YES 


**«**j i********** 
* * 

* FIND MACPO * 

* DEFINITION * 

* ON SYSSLB * 

* * 
***************** 


.* WAS *. NO 
*. MACRO INS. .*... 
*. FOUND .* 


* ANY *. NO 
MACRO INS. .*... 
*. LEFT .* 


*****H3« ********* 

* SUBSET O.C. * 

* DICTIONARY. * 
.••X* SUBSET GLOBAL *. 

* DICTIONARY * 

* * 
***************** 


* GET NOTE OF * 

* CUR RE-NT * 

* POSITION * 

* • 
***************** 


**«*G 5********* 

* 4 

* BP RETURN * 

* * 
*************** 


*****H4********** 
♦ * 

* POINTS * 
• X*SYSQOl • SYOOT 2* * 

* AND SYS003 * 

* * 
***************** 


*****j4********* 

* 

* CLOSE 

* SYSIPTANO 

* SYSSLB 

* 

**************** 


****K4********* 

* * 

♦ FETCH F3 * 

* * 
*************** 


***** 
*03 * 
* B2* 
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ENDOPR 


***** 
*07 * 
* Bl* 


**B1******* 

* POT CM T * 

**-*-*-*-*—*-** 

* EC IT COMMENT * 
* FIELD * 

* * 
*********** 


**•**01 ********** 

* SET ENO * 

* OF STATEMENT * 
♦FLAG. SUPPRESS ♦ 

* 0 1 CT • LOOKUPS ♦ 

* * 
** *************** 


001 INTO UX 


***************** 


***** 
*07 * 
* DI* 


*****£ 2 ********** 


•X* 003 INTO UX 


***************** 


.* ARE *. 
.* LOOKUPS 
*. SUPPRESSED 


**F 2******* 

* LOOKUP * 
**-*-♦-*«*-*-** 
•X*INSERT LITTLE A* 
♦INTO E.T. FRM* 
•OPR NO LIST * 
*********** 


*****G l ********** 

♦BWFCRC* BWRITE * 
*_*_*_*_*_*_*_*_* 

* WRITE E.T. ON ♦ 

* SVS001 OR * 

* SVS003 * 

***************** 


• *. 

HI *. 

.* IS AN *. 
.♦ ERR REC 
. PRES IN A 
♦.MACRO TO . 
*.UX*3 .* 
*. .* 

* NO 


*****H2********** 


.* X* 001 INTO UX *. 


***************** 


***** i********* 

* * 

* BR LINK * 

* * 
*************** 


***** 
*03 * 
* 87* 
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*08 * 
* Al* 


READ TEXT FILE 


**** ********* 


*****A2********** 


***************** 


**** A3*** ****** 

* * 

* FETCH F3 ♦ 

* * 
*************** 


* PROCESS * 
X* EDITED TEXT *- 

* RECORD * 

* * 
***************** 


SOURCE* ERROR 


************* 


* DETERMINE * 

.X*ADDRESS OF NAME** 

* FIELD * 

* * 
***************** 


CSECT. DSECT 


.X* SAVE NAME 


X* EVALUATE *.... 

* OPERAND AND * 

* STORE RESULT * 
***************** X 


******E3*********** 

**** 

* WRITE TEXT * * * 

.X ON SYS002 ....X* A1 * 


***************** 


************* 


.* IS ♦. NO 

.X*. EXPRESSION 
*. TRUE .* 


***************** 


MEND. MEXIT 


.* EXIT *. YES 
.X*. FROM OUTER 
*. MACRO .* 


***************** 


*****H 3 ********** 

* * 

* SET TEXT * 

.X* FILE EQUAL ♦. 

* TO SYS001 * 

* * 
***************** 


WRITE 
SOURCE ON 
* SYS002 * 

************* 


* • NOTE* * 

.X* DISCONTINUED ♦. 

* TEXT * 

* * 
***************** 


****K3 ********* 


* TEXT FILE TO * 

X* READ *... 

* DISCONTINUED * 

* TEXT * 

***************** 


*#***j4* ********* 

* POSITION TEXT * 

* FILE AT * 
•X* BEGINNING OF *. 

* MACRO * 
INSTRUCTION 


•X*CLOSE OUT PHASE* *,X* FETCH F7 


***************** 


*************** 


***************** 


*****K4********** 


***************** 


****** j5* ********** 

* READ MACRO * 
•X DICTIONARY 
* SYS003 * 

************* 


******KS*********** 

READ 

* EDITED * 
.. PROTOTYPE 
* STATEMENT * 
SYS003 

************* 
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NATTBT 


* ENTER VALUAT * 

* * 

•*•••••••*••••* 


VALUAT X 

•••••Bl********* 


• INITIALIZE 
*•*•••*•••••***• 


*•*• 

•04 • 

• Cl *.x 


•**• X 

SVHBL .*. 

Cl *• 

.* .IS *. 


.* INPUT PTA », VES 
• X*. OUTSIDE 
•.OPERATOR .* 


.OPERATOR . 
•.RANGE.* 
• . .• 

• NO 


CHFORC X 

•••••01 ***••*•*•* 

Sa b^SnIh*5Ise D : 

• ON INPUT PTR • 

• AND BRANCH TO • 

• IT • 

••••••*••••••••*• 


• STORE PARAN. 

■ x : s.a$T T E n * 

PARAMETER 


rno ami i»J. » 

• INTO POINTER * 

• LIST • 

•***••*•*• ••*•••• 


••04 ••••*•• 


**** 

* * 

* f«V *.* 


* ADVANCE 
.X*OPR. POINTER 8V 

• 1 


0 

«****E5******t«< 

»* 


• ADVANCE 


r* iitt 

....X* INPUT POINTER 



* BY 1 

* • 

>* 


FWCE GZ****. 

• * *. 


X 

L .*. 

G3 *. 

.« *. 


.* FORCE •. VES X .* IS OPR. •. NO 

•i W8WM. 


• and e * 

• * 


••••H3 *•*•••**• 

• * 

* RETURN * 


.* IS FORCED •. NO 
». OPR. A .*.... 

•.SUBSCRIPT.* 

• . I .* 

*. .* I 

• VES •••« 


INCREMENT 
I N°UT POINTER 
PAST I 


8SHIIT 1 








JS •. 

.•IS THIS*. 

»*A SUBSCRIP-*. VES 
*. teo Set ...... 

♦.VARIABLE .* 

*. *• 

*. .• X 

* NO ••••• 

. *10 • 

• At* 

• • 


GET VALUE 
FROM PARAN. 
TABLE 
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**«**A1 ********** 


***************** 


A3 *. 

.* IS *. 

.* IT A *. YES 

.X*. CHARACTER .* 

*. FXPR. .* X 

♦, .* ••*•• 

*. .* *11 * 

* NO * F2* 

. * * 


* FETCH 
X* LENGTH OF 

* STRING 

* 

**************** 


METB3 .*. 

CZ *. 

.* IS *. 

.* IT A *. NO 
...X*. CHARACTER .*... 
*. EXPR. .* 

*. .* 

*. .* 

* YES 


**B3*«****« 

* INCPTR * 
**-*-*-*-*-*-** 
•INITIALIZE FOR *. 
• ENTRY • 


•••••B4********** 


,X* STORE RESULT 


••C3******* 

* INCPTR * 
**-*-*-*-*-*-** 
•X*IN1 TI ALI ZE FOR *. 
* FNTRY * 


***************** 


•***»C4*** ******* 


.X* STORE RESULT 


* PERFORM * 

* OPERATOR TEST * 

* ANO BRANCH * 

* * 
***************** 


META3 .*. 

OZ ♦. 

.* IS *. 

.* IT A *. YES 
...X*. CHARACTER .*.... 
*. EXPR. .* 

*. .* 

*. .* 

* NO 


META2 X 

**E2******* 

* INCPTR * 
**-*-*-*-*-*-** 
•INITIALIZE FOR *. 
* ENTRY * 


••*•*••*••*••••** 


META1 

*•04 ******* 

* AACO * 
**-*-*-*-*-*-** 
...X*CONVERT BINARY *. 
* TP DECIMAL * 


***************** 


*****E3********** 

* STORF VALUE * 

* INTO * 

.X* INTERMEDIATE *. 

* RESULT * 

* * 
***************** 


*****F2********** 

* BRANCH * 

* ACCORDING TO * 

.X* SPECIFIC *. 

* OPERATION * 

* * 
***************** 


*****G2********** 


***************** 


****«H2* ********* 
* * 

•INITIALIZE REG.* 
*6 WITH ADORESS *. 
•OF STRING AREA * 
* 1 * 
***************** 


•FETCH CONOITION* 
.X* CODE FOR * 

* RFLATIONAL * 

* OPERATOR * 

**•••*•••**•***•* 


*****X2********** 
* • 

* INCREMENT * 

* INTERMEDIATE * 
•RESULT POINTER * 

* * 
***************** 


****«G4 ********* 


**************** 


**************** 


* PERFORM * 
,X*MULTIPLIC ATION *. 


•••*•**•*****•••• 


*****K4********* 


**************** 


CENT t N 

*****<«; ********* 

* 

* STORE 
..X* RESULT IP 

* RESULT I 1ST 

* 

**************** 
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**** 




.* OUTSIDE *. YES 
*. RANGE OF 
*. FLAGS .* 


SETENO X 

•****A2**«* ****** 

* SET END * 

* OF EXPRESSION * 
...X* FLAG IN * 

♦OPERATOR TABLE ♦ 


***************** 


**»**« l ********** 


**•*•*****••**••* 


♦•••Cl********* 

TEST 

FLAGS AND 
BRANCH 

***************> 



***** . 

*11 * 

* E2* CHARST X 

• * **£2******* 

* * PUTST * 

. **-*-*-*-*-*-** 

X* PUT STRING IN *. 

* STRING AREA * 


*****E2********** 

* TRANSLATE * 

* CHARACTER * 

K* STRING TO * 

♦ORIGINAL SET * 


******** ******** 


* STORE ADORESS * 

.X* OF DECIMAL *. 

* VALUE * 

* * 
***************** 


RET A 

•*H?*****«* 

* NET I NT * 

**-*-*-*-*-*-** 
...X*INITIALIZE FOR *. 
♦SET VARIABLE * 


METB 

••J2******* 

* RPTINT * 
**-*-*-♦-*-•-** 

... REINITIALIZE For *. 
♦SET VARIABLE * 


MFTC 

♦•K?******* 

* NET I NT * 
•*-*-*-•-*-*-•• 
...X*INITIALI/E FDR *. 
♦SET VARIABLE * 


* STORE * 

K* LENGTH OF *. 

* STRING * 

* * 
**•*••••** ***** ** 


SUBSTRING I 


*••*•••*****•***• 


SUBSTRING ) 



* SET SUBSTRING * 
X* CONNA OR LEFT *. 

* PAREN. SNITCH * 


LATTBT 

**G4******* 

* ATTPAR * 
•a-*-*-*-*-*-** 

. ..X* CHFCK FOR « 
* PARAMETER * 


IATTBT 

••HA******* 

* ATTPAR * 
**-*-*-*-*-*-** 
...X* CHECK FOR « 
* PARAMETER * 


SATTBT 

•«JA******* 

* ATTPAR * 
♦•-A-*-*-*-*-** 
...X* CHFCK FOR » 
* PARAMETER * 


* STORE RESULT 
.X* ADDRESS IN 

* POINTER l 1ST 


TATTBT 

•*KA«****** 

* ATTPAR * 
**-*-*-*-*-*-** 

. ..X* CHECK FOR * 
* "ARAMETER • 
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F3E 


****A ?********* 

* * 

* ENTER F3E * 

* * 
*************** 


READ SYS001 

* * 

************* 


************* 


*****^3********* 


**************** 


WRITE 

GENERATED END 
* ON SYS002 * 

************* 


****G2********* 

* * 

* FETCH F7 * 

* * 
*************** 


Chart 12. F3E - Phase F3 Substitute 


Flowcharts 


53 



***** 1 ********* 

* * 

* ENTER F7C * 

* * 
*************** 


♦****B1 ******* 

* INITIALIZE * 

* PROGRAM FOR * 

* XREF AND 

* AUTOTEST * 

* OPTIONS * 
************** 


***** 
*13 * 
♦ B2* 


**B2******* 

* F7N ♦ 
-*-*_*_*_*_*_*_ 

PUT AUTO • 
* TEST RECORD * 

* ( OPTION ) * 

*********** 


*_*_*_*_*_*-*_*_* * * 
X* GET NEXT *X....* C2 * 

* EDITED * * * 

* RECORD * **** 

***************** 


• X*. TEST MOOE 


SUBSTITUTION MODE 


***** 
*15 * 
* A3* 


.* TEST *. ASSEMBLER OP. 

. TYPE OF .* 

♦.OPERATION.* 


**F 2******* 

* UPC * 
**-*-*-*-*-*-** 

* INITIATE PRI- * 
♦VATE CODE IF * 

* ESD * 0 * 

*********** 


MOPI 

***** 02 ********** 

* SYHF * 

*_*_*_*-*_*_*_*_* 

* TEST FOR PCS- * 

* SIBLE SYH TBL * 

* OVERFLOW * 
***************** 


*****H3*** ******* 
*F7D 20A1* 

*-*-*-*-*-*-*-*-* 
.X* MAKE LITERAL * 
♦ENTRY IN SYMBOL* 
* TABLE * 

***************** 


ACPO 

**E4******* 

* UPC * 
**-*-*-*-*-*-** 

• • . X* IN I T . PVT. CODE* 
♦IF ASC I B IT 01* 
**l. ESD = 0* 
*********** 


A0P1 

*»***F 4** ******** 

* SYMF * 

*_*_*_ *-*-*-*-*-* 
♦TEST POSS. SYM * 

* TBL 0 * FLOW IF * 

* ASC(BIT1)=1 ♦ 
***************** 


*0P2 

*****G4**** ****** 

* PASS * 

* LOCATION * 
♦COUNTER IN TEXT* 

* IF ASCI BIT 2) =* 

* 1 * 
***************** 


**-*_*_*-*-*-** 

♦GENERATE X-REF * 
♦IF ASCIBIT 3)* 
*=1 (OPTION)* 

*********** 


M0P2 

**J2******* 

* XRFF * 

♦GENERATE X-REF *X. 
* RECORDS * 

* (OPTION) * 
*********** 


* COMPUTE * 

* LENGTH FROM * 
♦OPERATION CODE * 

* * 
***************** 


***** 
*14 * 
• A3* 


***** 
*13 * 
* J5* 


***** 
*14 * 
* A3* 


**-*-*-♦-*-*-** 

* SUBSTITUTE * 
* SYMBOL WORK * 

* BUCKETS * 
*********** 


*****H 5********** 
*F7D 20A1* 

*-*-*-*-*-*-*-*-* 

* EVALUATE * 

* LITERAL * 

* * 
***************** 


*. 


NAMF 

*. .** 

* NO 


**** 

. * * 
..X* C2 * 

* * 
**** 

*****K 5* ********* 

* * 

* SET SYMBOL * 

* TABLE ENTRY *X., 
*( STGET) SWITCH * 

* * 
***************** 


***** 
*14 * 
* Al* 
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***** 
*14 • 
* Al* 


****A1********* : 

STEP 

LOCATION 
COUNTER 

*************** 


**** 

*14 * 

* A3 *... 

* * • 

**** X 

AOPGO .*. 

A3 *• 

.♦COMPUTE*. 

.* GO-TO FCR *. SUBSTITUTION MODE 


*. ASSEMBLER 
*. OPERATION.* 

*. . * **♦* 
*• .* * * 

* ASSIGNMENT MODE * 84 * 

« * * 

- **** 


B4 *. 

* * 

mnote 


*. .* 
*• .* 

* NO 


***** 
*16 * 
* Al* 


*. DC OR DS 


***** 
• 16 * 
♦ Al* 


*t***Cl ********** 

* SET LENGTH * 

* ATTRIBUTE ANO * 

* ESD-ID FOR * 

* SYMBOL TABLE * 

* ENTRY ♦ 

***************** 


.* START, * 
♦.CSECT , DSECT , 
*. OR COM .» 


***** 
*16 * 
* A3* 


• *. 

C5 * 

.* 

.* 

*. EQU 


***** 
*18 * 
* Al* 


AC7 X 

***** 01 ********** 
* SET ♦ 

♦VALUE ATTRIBUTE* 
..X* FOR SYMBOL * 
. * TABLE ENTRY * 

• * * 
. ***************** 
* . 

* * • 

*14 * 

* 01 * 


***** 
*16 * 
* A5* 


*. LTORG 


***** 
*18 * 
* A3* 
* * 


***** 
*16 * 
* Gl* 
* * 


♦****E1 ******* 

* * 

* SET SYMBOL 
X* TABLE ENTRY 

* ISTPUTI 

* SNITCH * 

************** 


♦ * 
•14 * 
* El* 


***************** 


.* NAME *. 
*. PREVIOUSLY . 
*. DEFINED .* 


* PUT ERROR * 

* RECORO. SET * 

* MON BIT * 
***************** 


***** 
*13 * 
* 82* 


***** 
*16 ♦ 
* Gl* 


***** 
*16 * 
* G3* 
* * 


***** 
*16 * 
♦ G5* 


***** 
*17 * 
* FI* 


***** 
*18 * 
* A5* 


H4 


.*. 

* 

QUIT 


.* START, *. 
♦.CSECT, DSECT,. 
*. OR COM .* 


***** 
*16 * 
* G3* 
* ♦ 


***** 
*18 * 
* Al* 


***** 
*18 * 
* A3* 


***** 
*13 * 
* C2* 


***** 
*13 ♦ 
* B2* 


.* 

*. . * 

* NO 


***** 
*17 * 
* F2* 
* * 


*. TITLE 


**** 

* * 

* 84 * 

* * 
**** 


***** 
*17 * 
* A3* 
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***** 

• 15 * 

♦ 41* 


***** 
*15 ♦ 
* 43* 


SVM *****41 ********** 

* SUBROUTINE * 

*-*-*-*- *— *- *-*- * 

* TEST FOR POS- * 

* SIBLE SYMBOL * 

* T4BLE 0 • FLOW * 
***************** 


**•**4 3* ********* 
* * 

* RESTORE * 

* LOCATION • 

•COUNTER CHANGE ♦ 

* MODE • 

***************** 


♦- OVERFLOW 


•***B 2** ******* 


*************** 


•****g 3 ********* 


**************** 


•****C1 ********* 

* SAVE 

* LOCATION 

* COUNTER. SET 
•ITERATION POINT 

* 

****** ********** 


***** 
♦13 ♦ 
♦ D2* 


♦****D i ********* 
* 

* CHANGE 

* MODE TO 

* SUBSTITUTION 

* 

**************** 


***** 
*13 * 
* 05* 


Chart 15. F7C - Phase F7 Mainline Control ( 


3 of 6) 


56 



»****A] ********** 

t^J£*_*_ * I°*i* 

* EVALUATE DC* * 

* DS. OR LDC • 


*****43********** 

*F7V 25 A3* 
▼-*-*-•-*-*-*-*-* 
* EVALUATE • 


***************** 


* EVALUATE 1ST 

* AND 2ND 

* OPERANDS 


•* V-CON *. YES 
*• IN ASSIGNMENT.**... 
*. MODE .* 


*****32********** 

* SUB WB * 

* *-*-*-*-*-*-* * 
•X*SUBSTITUTE WORK* 

* BUCKETS * 

* * 
***************** 


***** 34 ********** 
♦F7L 26*** 

*-*-*-*-*-*-*-*-* 
X* PUT ERROR * 

* RECORD • 

* * 
***************** 


*****C 3 ********** 
* * 
♦SET ATTRIBUTES * 

* FOR SYMBOL * 

* TABLE ENTRY ♦ 

* * 
***************** 


.* ERROR IN *• NC 
*. 1ST OR 2ND .*.., 
*. OPERAND 


*-*—*—*-*-*-*—*—* 

* PUT ERROR ♦ 

* RECORD * 


.♦MODE * *. 

.* *• NO 

♦.SUBSTITUTION .*... 


**E1 ******* 

* suewR * 
**-*-*_*_*_*-** 
♦SUBSTITUTE WORK* 
* BUCKET S * 


*****E5********** 

* SET * 

* LOCATION * 

* COUNTER AND *X. 

* ALIGNMENT • 

* INDICATORS * 

********** ******* 


*****£ l********** 

* ALIGN * 

* LOCATION * 

* COUNTER. MOVE * 

* LIT COUNTS TO * 

* WORK BUCKETS * 
***************** 


.* ANY *. NO 
*. LITERALS .*... 
*♦ ACTIVE .* 


♦****G 5* ********* 

* ALIGN * 

* LOCATION * 

* COUNTER. SET * 

* ALIGNMENT * 

* INDICATORS * 

***************** 


*****H3******* 

* * 

* SET SWITCH ♦ 

* TO GENERATE ♦ 

* LTORG * 


.* *. NO 

*. ASSIGNMENT .*... 
*. MODE .* 


**Kl******* 

♦ PUTLBT * 
**-*-•-*-*-*_** 

* BUILD LITERAL * 
* BASE TABLE * 
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*18 * 
* * 1 * 


••••• 
*18 * 
* AS* 



***** A3 *•**♦*♦**• 

* SCAN * 

♦OPERAND. ATTACH* 
♦WORK BUCKET FOR* 

* EACH LEGAL * 

* OPERAND • 


**«**A 5* ***•••*•* 

* MOVE • 

* CURRENT * 

* LOCATION * 

♦COUNTER TO TEXT* 

* • 
****** *********** 


***** 8 l********** 

♦F7E 21A1* 

•-•-*-♦-*-*-*-*—* 

* PROCESS * 

* ESO ENTRY * 

* • 
•*•****«**••*•*•* 


***** 

♦ 13 * 

* B2* 


***••83**** ****** 
*F7L 26*** 

A-*—*-*-*-*-*-*-* 

•PUT ERROR MSGS.* 

• FOR ILLEGAL * 

* operands « 


*****C 3* *•*•*•*• 

*F7E 21A1 

•-A-*-*-*-*-*-*-; 

* PROCESS 

* ESO ENTRIES 


03 

.* *. 

.* SYMBOL *. YES 
*. TABLE .*.... 
•.OVERFLOW .* 

*. ,* 

*. .* 

* NO 


*****B5********** 
*F7E 21A1* 

* PROCESS * 

* OPERAND * 

* FOR ORG • 

•*•***••*••**•••• 


*»***C 5********** 
• * 

* MOVE NEW * 

* LOCATION * 

•COUNTER TO TEXT* 

* * 
****•*•«*•**•***• 


***** 
*15 * 
* Al* 


***** 

:*iS 


X 

***** 
*13 • 
* B2* 


****»F 1********* 

* F7E 

•-•-A-*-*-*-*-*- 

* PUT LAST 
•TESTRAN RECORD 

* (OPT ION I 


***»*(; 1 *•••**••• 
♦F7E 21AI 

*-»-*-»-*-*-*-*- 


s c o l ??l e 


******H1*********** 

PHCLS 

• *-*-*-*-*-*-* * 

CLOSE F7 


************* 


X 

****j l********* 

♦ * 

* EXIT TO FI * 

* * 
*************** 
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**** 

X 

**d******* 

* PUTXT * 

♦PUT CURRENT TXT* 
♦ RECORD ON ♦ 
•OUTPUT FILE* 

*********** 


ERROR *. NO • • 

RECORO IN .♦..•.X* G1 * 
. BUILD •* * • 

♦•AREA .♦ ♦♦** 


««P|******* 

* PUTXT ♦ 
**_*_*_*_*_*_** 

* PUT ERROR * 
• RECORO * 


*********** 


♦• -♦ 

*• •♦ 

* NO 

**** 

* ♦ • 

• G1 ♦.X. 

♦ * 

*•** . 

X 

**G !*♦♦♦♦♦♦ 

♦ CETPT ♦ 
**_*_*_*_*_*_** 

♦GET POINTER TO ♦ 
♦ NEXT RECORD ♦ 

• * 
*********** 


*. END OF FILE .*• 


.* LIT 
.♦ SWITCH 
♦-GREATER THAN 


NO 


**** 

• * 

* Cl ♦ 

* * 
♦ *** 


♦♦B3******* 

* GETXTM ♦ 
**-*-•-*-*-*-** 

* MOVE TEXT TO * 
♦ WORK AREA ♦ 


*****B4********** 

♦ HOVf ♦ 

♦ GENERATED • 
♦CSECT • ORG# OR * 

♦ LTORG TO WORK ♦ 

♦ AREA * 

***************** 


***** 03 ********** 

♦LOGK UP OPERA- ♦ 

♦ TICN COOES IN * 
♦OPERATION CODE ♦ 

♦ CONVERSION ♦ 

♦ TA8LE ♦ 
♦♦♦♦*♦♦♦♦♦♦***♦*♦ 


«***E3********* 

SET POINTER 
IN CONTROL 
TABLE 

*************** 


****P3 ********** 

SCAN ♦ 

OPERANO FOR ♦ 
LITERAL ♦ 

* 

**************** 


*****G3*** ****** 
* 

♦ TEST FIELDS 

♦ FOR LEGAL 

* CHARACTERS 

* 

**************** 


YES -♦LITERALS IN#. 
......SYMBOL TABLE .♦ 

♦THIS STRINGS 


.♦ LITERALS ♦. YES 
♦.ON TAPE THIS .♦..• 
♦. STRING .♦ 


YES .♦ ALL ♦. 
...♦. STRINGS 

♦. CHECKED .♦ 


*. 


*. 


.♦ 

* 

♦ NO 


♦♦♦♦ 

• ♦ ♦ 

• • X* C5 ♦ 
* ♦ 

**** 

*«***F 5* ********* 


***************** 


♦ MOVE QUIT 
♦RECORO TO TEXT 

♦ WORK AREA 


.♦ ♦. NO 

■X*. SUBSTITUTION .♦... 
♦. MODE .♦ 


♦ FROM SYMBOL ♦ 

♦ TABLE ♦ 

***************** 


****«j4* ********* 
♦ * 

♦ DECREMENT ♦ 

.♦LITERAL STRING ♦ 

♦ COUNT * 

♦ * 
***************** 


**K2******* 

• CLSTXT ♦ 
**-*-•-*-*-*-** 
♦CLOSE TEXT FILE* 


♦♦** 

* ♦ 

* Gl * 

♦ ♦ 
♦♦** 


Chart 19. F7X 
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**** 


**** 41 ********* 


.♦ LITERAL *. YES 
*. ( MACH. OP. I 
*. ENTRY .* 


*. LITERAL DC 


*#***£! ********** 

* WOVE * 

* CURRENT * 

* LOCATION * 

♦COUNTER TO TEXT* 

* RECORD * 

***************** 


#****F 1 ********** 

* MOVE * 

* CURRENT * 

* LOCATION * 

♦COUNTER TO WORK* 

* AREA * 

***************** 


*****G1 ********* 
♦ 

* INITIALIZE 

* POINTERS AND 

* SWITCHES 


♦****A2**^ ♦***♦*♦ 
♦ * 

♦EVALUATE LENGTH* 

* MODIFIER IE * 

* PRESENT AND * 

* ALLOWED * 

***************** 


***** 52 ********** 
♦ * 

♦EVALUATE SCALE ♦ 

* MODIFIER IF * 

* PRESENT AND * 

* ALLOWED ♦ 

***************** 


*****C2********** 

* EVALUATE * 

* EXTERNAL * 

* EXPONENT IF * 

* PRESENT AND * 

* ALLOWED * 

***************** 


.* LEFT *. 
.♦DELIMITER =*. YES 
*. OUOTE OR L. .*.... 
*. PAREN. .* 


YES .♦ LEFT *. 
...*. DELIMITER = .* 
*. COMMA .* 


.* LEFT *. NO 
*. DELIMITER = .*... 
*. BLANK .* 


***** 43 ********** 


***************** 


#****54********** 


.♦ LENGTH *. YESX 
*. MCCI FI ER .*.... 
*. PRESENT .* 


*****03##* ******* 


ALIGN 

LOCATION 

CCUNTER 


*****45********** 
* * 

* SET ♦ 

* POINTERS ANC * 

* SWITCHFS * 


*****53********** 
♦ • 

* DC SYNTAX * 

* SCAN BY OC/DS * 

* TYPE * 


♦.SYNTAX ERRCR ...... 


*#**#33*#****#*** 

♦SET APPROPRIATE* 
♦ERROR INDICATOR* 
X* AND GO TC * 

* DIAGNOSTIC * 

* ROUTINE * 
***************** 


*****54********** 
* * 

* MOVE DC WORK * 
♦BUCKET TO TEXT * 

* RECORD * 

* * 
***************** 


.♦LITERAL*. 
.♦PREVIOUSLY *. YES 
.EVALUATED AND.*... 
♦.ASSIGNED .* 


****C5********* 


#*#**0 5 * ******** 

* USE TABLE 

* LOCKUP TC 
.X* ASSIGN ANO 

* EVALUATE 

* LITERAL 
**************** 


#****£ 5********** 

* SET * 

* APPROPRIATE * 

* SWITCHES, * 

* COUNTERS, ANC * 

* INDICATORS * 

***************** 


*****04********** 
♦ ♦ 

♦ ADO 15 ♦ 

♦ TO RECORD ♦ 

♦ LENGTH ♦ 


♦♦♦♦♦J 1********** 


***************** 


.♦ LENGTH ♦. YES 
♦. MODIFIER ...... 

♦. PRFSFNT .♦ 


**** j 2********** 
♦ 

1 ALIGN * 

LOCATION ♦ 

COUNTER ♦ 

* 

**************** 


.♦ ♦, ♦**♦ 

.♦ END ♦. NO ♦ ♦ 

♦. OF OPERAND .*....X* KL ♦ 
♦. FIELD .♦ * * 


#*#**K l********** 
♦ ♦ 

♦ EVALUATE ♦ 

♦ DUPLICATION ♦ 

♦ FACTOR IF ♦ 

♦ PRESENT ♦ 

♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦♦ 


♦. 1ST OPERAND 

♦ . .* 

♦ . .♦ 

*. . ♦ 

♦ YES 


.♦ MORE THAN *. NO 
♦. ONE OPERAND .*... 
♦. PRESENT .♦ 


#****J 4** ******** 

* SET NEW * 

* LOCATION * 

.X* COUNTER IN *. 

* CENTRAL TABLE * 

* * 
***************** 


***#*£ 4********** 

* ADJUST * 

* LOCATION * 

.X*COUNTER IN TEXT* 

* RECORD * 


♦***J 5*** ****** 


Chart 20. F7D - Phase F7 DC Evaluation 


Flowcharts 61 



ENTRY 

****A1********* 

♦ * 

* ENTER F7E • 


.* IS NAME *. NO 
.X*. IN SYMBOL .*... 
*. TABLE .* 


***** A3*** ******* 

* * 

* CREATE * 

.X* PARTIAL ESO *. 

* ENTRY * 

* * 
***************** 


«****q 3#** ****** 
* 

.X* LOG ERROR 

* 

* 

**************** 


*****C2********* 


**************** 


***** 02 ********** 


***************** 


ENTRYS 

****AA********* 

* * 

♦ ENTER F7E * 

* * 
*************** 


.* IS NAME *. YES 
..X*. IN SYMBOL 
*. TABLE .* 


♦****C 5 ********** 


• *X ••♦SET WORK BUCKET* 


***************** 


.♦.LAST OPERAND .♦ 


***♦0 A* ******** 


*************** 


*•** 05 * ********* 


LOG ERROR *X. 


**************** 


EXTRN 

****E1********* 

* * 

* ENTER F7E • 

* * 
*************** 


****E3********* 


*************** 


„* IS NAME *. NO 
•X*. IN SYMBOL .*... 
*. TABLE .* 


***#GI ********* 
LOG ERROR 
*************** 


♦****F 2********** 
* • 

* CREATE ESO * 
.X* AND SYMBOL * 

* TABLE ITEMS * 

* * 
***************** 


****H 2*** ****** 


*************** 



EXTRNS 

**** P4***«****« 

* * 

* ENTER F7E • 

* * 
*************** 


.* NAME *. YES 
-X*. IN SYMBOL .*.... 
*. TABLE .* 


LOG ERROR 

*************** 


♦.LAST OPERAND 


****H5********* 


*************** 


*****j4********** 


***************** 


Chart 21. F7E 
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****Al********* 

* * 

* ENTER F7E * 

* * 
*************** 


*****42********** 
* * 

♦ CREATE * 

X* PC TYPE ESO *. 

♦ ENTRY ♦ 

♦ * 
***************** 


**** A3 ********* 

* * 

* RETURN * 

* * 
*************** 


*****B2***««***#: 


START 

****B1 ********* 

* * * 

* ENTER F76 *.. X* SET CSTVal 

* * * 

*************** * 

****************: 


****C 1 ********* 

¥ * 

* ENTER F7E * 

• ♦ 
*************** 


CSECT 

*♦• *0 i ********* 

* • 

♦ ENTER F76 • 

* * 
*************** 


DSECT 

**** El ********* 

* * 

* ENTER F7F * 

* • 
*************** 


****A4********* 

• * 

* ENTER F7E * 

* * 
*************** 


*****B4* ********* 
* * 

♦FETCH ESD ITEM * 

* FOR tuorpnt ♦ 

* SECTION * 

* * 
***************** 


*****C4********** 

* UPDATE * 

* LOCATION * 

* COUNTER AND * 
♦LENGTH FOR ESD * 

* ITEM * 

***************** 


****D4*«* ****** 


*************** 


***♦*£ 2 ********** 

* UPDATE * 

LENGTH OF * 
PREVIOUS * 

♦CONTROL SECTION* 

* * 
***************** 


• X* 


• * IS THIS *. YFS 
••A RESUMPTION .*.... 
*- .* 


♦****G ?**♦***♦♦** 

* * 

*CREATF NEW ESD * 

* AND SYM80L *. 

* TABLE ENTRIES * 

* * 
♦♦***♦*♦♦**♦***** 


*****E 3 ********** 


***************** 


*****G3********* 

♦ 

* SET 

X* CTYPE AND 

* CESOID 

* 

**♦**♦♦***♦♦**•* 


♦***H3* ******** 


****♦♦*•**♦♦*** 


QUIT 

****A5********* 

* * 

* ENTER F7E * 

♦ * 
*************** 


**#**B5* ********* 
* * 

* FETCH ESD * 

* ITEM FOR LAST * 

* SECTION * 

* * 
***************** 


*****Q^* ********* 
* * 

* UPOATE * 

* LENGTH OF ESD * 

* ITEM * 

* * 
***************** 


****05********* 


*************** 


ESWBKR 

♦***F 5********* 

* * 

* ENTER F7E « 

* 4 
*************** 


****G 4* ******** 


*************** 


NO .* DUPLICATE *. 
...*. NAME OR .♦ 
*. SYM8GL •* 
♦.TABLE** 


«****H 5* ******** 
* 

* SET 

* TEXT WORK 

* BUCKET 

* 

**************** 


X 

***«j5* ******** 

* ♦ 

* RETURN * 

* * 
*************** 


Chart 22 
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*++*A3**+****** 

* 

♦ ENTER F7E 

* 

*************** 


X 

.*. 

B3 ♦ . 

.* ♦ . 

.♦ IS *. YES 
♦.NAME DEFINED 
♦. AS ER .♦ 

♦ . .♦ 

♦ . .♦ 

♦ NO 


****C3********* 


*************** 


X 

****03********** 

SET ♦ 

WORKBUCKET ♦ X.. 

♦ 

♦ 

**************** 


X 

♦♦♦♦E 3* ***+♦♦** 

♦ ♦ 

RETURN ♦ 

♦ ♦ 

*************** 


Chart 23. F7E 
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♦****B1 ********* 


•SET GET SWITCH 


• * *. 

.* TEST *. OFF 
*• GET SWITCH .*..♦. 
*. •* 


C3 


*. 


•* TEST *. CN 
•X*. XREF SWITCH .*... 
*• •* 

*. .* 

*• •* 

* OFF 


*****C4********* 

* 

* MAKE 
.X* TYPl CROSS 

* REFERENCE 

* 

**************** 


*****D2*** ******* 
* • 

* FIND LOCATION * 

* FOR SYM80L IN * 

* SYMBOL TABLE * 

* * 
***************** 


****Ft********* 

* RETURN * 

* • NOT FOUND* • 

* * 
*************** 


*****P3********** 

* * 

* CHANGE * 

♦CROSS REFERENCE*. 

* TO TYPE 3 * 

* * 
***************** 


****F4********* 

* * 

•X*RETURN (FOUNOI ♦ 
* * 

*************** 


* MAKE * 

* SYMBOL TABLE * 

* ENTRY * 

* * 
***************** 


*************** 


.* WILL ESO *. YES 
.X*. OVERLAY .*.... 
*. SYMBOL .* 
♦.TABLE.* 


.♦THERE ROOM *. 
• X*.FOR 2 ESD SEG. 
♦.AND SYM. .* 
♦.TABLE.* 


♦***H 5* ******** 

♦ * 

•X*ABNORMAL RETURN* 


*************** 


****J2*** ****** 

* * 

• NORMAL RETURN * 

* * 
*************** 


*****j3**** ****** 
* ♦ 

* OVERFLOW * 

•EXTERNAL SYMBOL* 

* DICTIONARY ♦ 

* ♦ 
***************** 


X 

****K3* ******** 

* * 

* NORMAL RETURN ♦ 

* * 
*************** 


Chart 24. F7S - Phase F7 Symbol Table Routine 
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***** 3********* 

* ENTER F7V * 

* • 

* • 


***** 03 ********** 
* * 

* REGISTER SPI * 
•POINTS TO FIRST* 

• CHARACTER ♦ 


**** • 
• • . 

* C3 ••X. 

• * 
***• X 


C 2 • . C3 

.* *. .* IS •. 

.• •. OPERATOR • • CHARACTER *. TERM 

.*• COMPUTED GO .*X *. OPERATOR OR .* 


SELF-DEFINING 


***** 02 ********** 

* BLCOM * 
•-*-*-*-*-*-•-*-* 

.X* OPERATION IS * 
•BLANK OR COMMA * 

• • 

***************** 


***** 02 ********** 
• FINIS • 
*-*-*-*-*-*-*-•-* 


*****03********** 

• SOVCF • 
*-*-*-*-*-*-*-*-* 

• CONVERT SELF- * 
•DEFINING VALUE • 

• * 
***************** 


*****04********** 


___ TABLE • 
• FOR VALUE • 

••***•**•*•••**** 


• BUCKET AND 

• SYMBOL TABLE 

• FOR LENGTH 


•RESULT IN $P2« *X *. DEFINING BIT .• 

•CONO. CODE SET * X *. ON .* 

• TO EXP. TYPE • 


••••F 2********* 

• RETURN • 

• TO CALLING • 

• ROUTINE • 

*************** 


***************** 


• BUMP 

• POINTER TO 

• CHARACTER 
•FOLLOWING TERM 


•X* OPERATOR IS 
* RIGHT PAREN. 


**************** 


-X* 


**•*•„)?•*•**••** 

• LTCOM 

OPERATOR IS 
PLUS SIGN. 


Mi OR / 


*****H3********** 

• LOOP • 

*-*—*-*-*-*-*-*-* 

.X* MAIN LOOP TC *X 

• PERFORM * 

• ARITHMETIC * 


. NO 

J3 •. 

■ •* •. 

.* IS •. 
*. OPERATOR AN . 
•.ASTERISK .• 




• « 


. * 


Chart 25. F7V - Phase F7 Expression Evaluation 
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****A3 ********* 


*****P3********** 

* CALCULATE • 

* RELATIVE PTR# * 

* TO ERROR IN * 
•OPRNO (OR ZERO)* 

***************** 


***«*Q3»*** ****** 
* * 

* INITIALIZE * 

•ERROR RECORO IN* 

* CORE • 

* • 
***************** 


.* IS *• 

•* ERROR *. NO 

*. RECORO ON 

♦.TEXT FILE.* 


*«F3*****«* 

* GETXTM * 
.**-*-*-*-*-*-** 

* MOVE ERROR • 
* RECORO TO * 
♦BUI LO AREA * 
*********** 


«****q 3 *** ******* 
* * 

•ATTACH CURRENT • 
* ERROR MESSAGE * 
*T0 ERROR RECORO* 


****H3* ******** 

* RETURN * 

► TO CALLING • 

• ROUTINE * 


Chart 26. F7L - Phase F7 Log Error Routine 
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* ENTER F7G * 


*****B ?*♦♦♦♦♦**** 

* ZERO * 

♦STRING COUNTER,* 

* INIT. PTRS. TO * 

* LIT. OC AREA * 

* AND IEUF7S * 
***************** 


* IN CHAIN FOR 

* THAT COUNTER 

* VALUE 


*****03********* 

♦ADO 1 TO STRING 
♦ COUNTER. 

.*♦ PREPARE TC 


.♦ HAVE FOUR ♦. 
•X*. CHAINS BEEN .♦ 
♦.PROCESSEO.^ 


♦ MOVE LITERAL 

♦ FROM SOURCE 

♦ RECORD INTO 

♦ TEXT 


****£ 4 ********* 


*****F ;>***••***** 


****G2********* 

SET LAST 
OPERAND 
INDICATOR 


2 *** ******* 

: 29r! {? : 

♦ LITERAL TABLE * 

♦ ENTRY. RESET * 

♦ SWITCH * 


MOVE IN 
FIXED PART OF 
RECORD 


•***K2^*«****** 

POINT BACK 
TO BEGINNING OF 
RECORO 


Chart 27. F7G - Phase F7 DC Get Routine 


68 




X 

****F2********* 

* EXIT TO F8I * 

* * 

* ♦ 

*************** 


Chart 28. FI - Phase F Interlude 
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**** 


*•*♦ A 1 *•*♦**♦** 

• * 

• ENTER F8C ♦ 

• * 
*#•♦***♦♦♦♦♦♦♦♦ 


**♦♦♦ 42 ** ♦♦*♦♦♦♦♦ 

* F8NTRY * 

*-*-*-*-*-*-*-*-* 

•X^INITI ALIZE FOR * 

* EACH RECORD * 

* * 
***************** 


.♦ ERROR 
♦ . PROCESSING 
♦ . NEEDED • 


**«***e3 *********** 

ERL0D8 

*-*-*-*-*_*-*-*-* 
•X GET ERROR 
* RECORD * 

************* 


******£ 7*** ******** 
GETXTM 

* 

INPUT 

* NEXT * 

RECORD 

************* 


.♦ WAS * 
.* THERE 
. ANOTHER 
*. RECORO 


******03*********** 

ENQOFF 

**-*-*-*-*-*-*-** 

•X COMPLETE RECORD .. 
* PROCESSING * 

************* 


****04********* 

* * 

* EXIT TO FPP * 

* * 
*************** 


♦♦**♦£ 1 ********** 

* COMMENT * 
*-*-*_*_*_*_*_*-* 

* SET 

* IN PRINT LINE 

* ♦ 
***************** 


♦ X. 


** ***E 3* ********* 

* BLOIMG ( F8P) * 
PARTLY *-*-*-*-*-*-*-♦-* 

X* PRINT ROUTINE * 

♦ BUILDS IMAGE * 


***************** 


*****F 2********** 

♦ SETWBP * 

*-*-*-*-*-*-*-*-* 
♦SET PTRS TO WRK* 

♦ BCKT AND APP. * 

♦ FIXED FIELD * 
•*****♦♦♦**♦***♦♦ 


.* ALIGNMENT ♦. YES 
► . NEEDED THIS ...... 

♦. STATEMENT. ♦ 


*****03********* 

♦ SRLIGN 
*-*-*-*-*-*-*-*- 

X* DO ANY 

♦ ALIGNMENT 

♦ NEEDED 
♦****♦***♦♦***♦♦ 


H2 ♦. 

.♦IS THIS*. 

.* AN *. NO 

. assembler .♦... 

♦.OPERATOR .* 


*****j2 ********** 

♦FBA 31 A2* 

*-*-*- *-*-.*-*-*-* 

* PROCESS * 

* ASSEMBLER ♦ 

* INSTRUCTIONS * 
***************** 


*****j3********** 

♦F8M 30A2* 

*-*—*-*-*—*-*-*-* 

♦ PROCESS ♦ 

♦ MACHINE * 

♦ INSTRUCTIONS * 
***************** 


****** 2 ********** 

♦F8P 32A3* 

♦-♦-♦-♦-♦-♦-♦-♦-♦ 

♦ OUTPUT ♦ 

♦ ROUTINE ♦ 

♦ ♦ 
***************** 


Chart 29. F8C 
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***** 3 * ******** 

t ENTER F8M « 

t * 

*************** 


****p 3*** ******* 

INITIALIZE FOR * 
MACHINE * 
OPERATION * 
PROCESSING ♦ 

**************** 


*****C3********* 

* 

* ARRANGE BITS 

* FOR COMPUTED 

* BRANCH 

* 

**************** 


*****03********** 
* ♦ 

* BRANCH PEP ♦ 

* INSTRUCTION * 

* FORMAT ISEF ♦ 

* NOTE I * 

***************** 


*****53********** 

* PROCESS TYPE * 

* INSTRUCTION * 

* ACCOROING TO * 

* BRANCH (SEE * 

* NOTE) ♦ 

***************** 


NOTE - 

F8M BRANCHES ARE TO 
THE FOLLOWING LABELS 
RR I* RR2# RR3* PR4 
RX1. RX2 
RS It RS2 
S 1 3* SI A 
SSlt SS2 


X 

****53********* 

* * 

* RETURN TO F8C * 

* * 
*************** 


Chart 30. F8M - Phase F8 Machine Operation Processor 
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****A2********* 

* * 

* ENTER FflA * 

* * 
*************** 


*****Q2* ********* 
* * 

♦SET CONDITIONS ♦ 

♦ FOR COMPUTED * 

♦ BRANCH ♦ 

♦ * 
***************** 


.* SHOULD ♦. NO 
. PHASE F 8 .♦... 

*. PROCESS .* 

♦.THIS .♦ 


****Q -$********* 

* * 

.X + RFTURN TO F8C ♦ 

♦ * 

*************** 


********* 

► * 

♦ RETURN TO F8D *X . 

♦ * 
*************** 


***** 0 ?********** 
* * 

♦ BRANCH PER ♦ 

♦ ASSEMBLER ♦ 

♦OPERATION (SEE ♦ 

♦ NOTE) ♦ 

***************** 


*****£ 2 ********** 
♦ * 

♦ PERFORM * 

♦ INDICATED ♦ 

♦ PROCESS (SEE ♦ 

♦ NOTE ) ♦ 

***************** 


YES .♦WAS BRANCH 
...... TO LITERB. 

♦■OSR* DCB . 


NOTE - 

F8A ASSEMBLER OPERATIONS AND 
PROCESSES TO BE P ERFCRMEC ARE 
AS FCLLOWS - 


********* 

* 

♦ LABEL 

********* 

♦ MNOTST 

♦ PRINTB 

♦ SPACE 

♦ EJECT 

♦ PUNCHB 

♦ REPRO 

♦ TITLES 

♦ ENTRY8 

♦ EXTRNB 

♦ STARTS 

♦ CSECTB 

♦ DSFCT8 

♦ COMB 

♦ EOUB 

♦ GRGB 

♦ ENDS 

♦ LTORGB 

♦ USINGB 


***************************** 


LITERS 

DSB 

DCB 


***************************** 

* 

SET PNOTE FLAG ♦ 

SET PRINT FLAGS ♦ 

SET SPACE FLAG ♦ 

SET EJECT FLAG ♦ 

SET PUNCH SIT * 

SET REPRO BITS * 

SET TITLE BITS * 

PROCESS ENTRY OPERAND * 
RETURN CONTROL TO IEUF8C ♦ 
PROCESS START STATEMENT ♦ 

PROCESS CSECT STATEMENT ♦ 

PROCESS DSFCT ♦ 

PROCESS COM * 

PROCESS FQU * 

PROCESS CRG * 

PROCESS END * 

PROCESS LTORG ♦ 

PROCESS USING * 

PROCESS DROP ♦ 

PROCESS CCW * 

SET LITERAL SWITCH * 

SET DS SWITCH * 

SET DC SWITCH * 


************************************** 


****G 2 ********* 

* * 

* RETURN TO F8C ♦ 

* * 
*************** 


Flowchart 31. F8A - Phase F8 Assembler Operation Processor 
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****A3********* 

* 

* ENTER F8P 

* 

*************** 


* ENTRY FOR EDITED 

* RECORDS 

* 


.* PUNCH* *. NO 
♦.REPRC* MNOTE * • *• • • 
*. TITLE .* 


* YES 

**** 

*37 * 

* C3 *.X. 


«****[« ^* ********* 

* * 

* MOVE LEFT * 

•X*$ IDE FOR PRINT *. 

* AND PUNCH * 

***************** 


***** 

*33 * 
* B3* 


•****C 2*** ******* 

* * 

* HOVE MNOTE * 

* MESSAGE TO *X 

* PRINT AREA * 

* * 
***************** 


C 3 *• *****c ^* ********* 

.* *• * * 

.* *. TITLE * MOVE * 

COMPUTED GO X* TITLE TO *. 

*. TO .* * HEADING LINE * 


*. .* 

* PUNCH* 
. REPRO 


***************** 


***** 
*33 * 
* S3* 


***** 
*33 * 
* G4* 


*****H4* ******** 

* CHKSWH 
*-*-*—*-*-*-*-*- 

.X* PRINT 'REPRO* 

* REPRO LINE 

* 

**************** 


****£!********* 


*************** 


»****E 3********** 

* DUMP 
*-*—*-*-*—*-*-*- 

* DUMP PUNCH 

* BUFFER IF 

* NEEDED 
**************** 


♦ MOVE * 

♦RIGHT S IDE FOR ♦ 

♦ PRINT * 

♦ ♦ 
***************** 


***** 
*33 * 
* B3* 


*-*-*-*-*-*-*-* 
PUNCH CARD FOR 
* PUNCH/REPPO * 

************* 


****$ 3 ********* 

* * 

* EXIT * 

* * 
*************** 


♦***G4* ******** 


*************** 


X 

BLD IMG .*. .*. 

H4 *. H5 *. 

*. .♦ 

.* TITLE* *. YES .* 

♦ •REPRO* PUNCH,.*. X*. MNOTE 

♦. MNOTE .* ♦. 

♦. .* *. . 



♦• .♦ 

♦ NO 


***** 

♦ 33 ♦ 

♦ 83* 


*****j4********** 
♦ ♦ 

* CONSTRUCT * 

♦RIGHT SIDE FOR * 

* PRINT * 

* ♦ 
***************** 


X 

♦***j 5* ******** 

* ♦ 

* EXIT * 

* * 
*************** 


***** 
*33 * 
* B3* 


Chart 32. F8P - Phase F8 Print Routine Cl of 2} 
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***** 
*33 ♦ 
* B3* 


♦ . SPACE 


**«**e 4 ********** 

* * 

* SAVE * 

.X* ACCUMULATED ♦ . 

* SPACE COUNT * 

* * 
***************** 


♦***B 5* *♦**♦**♦ 

* * 

• EXIT * 

* * 
*************** 


*****Q2********** 

* LOADLH * 

*-*- *- *-*-*—*-*-* 
♦MOVE LEFT SIDE ♦X. 

* TO PRINT LINE * 

* * 
***************** 


**•**£ 2********* 

♦ CHKSWH 

*_*-*-*-.*_*-*-*-: 

♦ PRINT LINE 


**************** 


*«***F ?********** 

♦ GOT XT ♦ 

*-♦-♦-♦-♦-♦-♦-♦-* 

* PUNCH DATA IN * 

* TXT CARO ♦ 

♦ * 
***************** 


****G?********* 


*************** 


EJECT 

’*• .♦* 


LEFT .♦ ♦. RIGHT 

SIDE .♦ *. SIDE 

....„♦. RECORO TYPE 


.♦ 

* ERROR 
. RECORO 


*****03********** 
* ♦ 

♦ INSERT * 

♦ STATEMENT NO. * 
♦IN ERROR RECORD* 

♦ * 
***************** 


******P3*** ******** 

WTERR IF8IJ 
♦-♦-♦-♦-♦-♦-♦-♦ * 
PUT ERROR 
* RECORD IN ♦ 
TEST STREAM 
♦*♦♦*****♦*♦♦ 


*•**£ 3********* 

* * 

* EXIT * 


*****C4********** 

* PHEHEO * 

•X^ EJECT TO NEW *. 

♦ PAGE * 

• ♦ 
***************** 


*****04********** 

* CHKSWH ♦ 

*-*.*-*-*-*.*-*_* 

• PRINT LINE IF * 

* ONE IN BUFFER ♦ 

* * 
***************** 


♦♦♦♦C 5* **♦♦*♦♦* 


*****54********** 

♦ LOADRERR ♦ 
*-*-*-*-*-*-*-*-* 

♦ PRINT ERROR ♦ 

♦ LINE IF ♦ 

♦ NEEDED ♦ 

***************** 


♦♦*♦ 

♦ 33 ♦ 

♦ G4 *.X 

♦ ♦ 
*♦♦♦ 


*****£4********** 

♦ LQADRH ♦ 

*-*-*_*-*-*-*-*_* 
♦MOVE RIGHT SIDE^ 

♦ TO PRINT LINE ♦ 

♦ ♦ 
***************** 


****H 4 ♦♦♦♦♦♦♦♦♦ 


♦♦♦♦♦ 

♦ 32 ♦ 

♦ C3* 


*************** 


Chart 33. F8P 


Phase 8 Print Routine (2 of 2) 
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***♦ 


♦ ♦♦♦ 


♦###AI#***##### 


*****44********** 


*****Bl########## 
* * 

♦ SET OUTPUT * 
♦POINTER TO DATA# 

♦ AREA ♦ 

♦ ♦ 
*♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦ 


*****£!*********: 

♦ FETCH 

♦ CURRENT 

♦ LOCATION 

♦ COUNTER 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


YES .♦ ♦. 

..•♦.FIRST OPERAND. ♦ 

*. .♦ 

♦• •♦ 

♦• •♦ 

♦ NO 


X NO .#LAST OUTPUT ♦• 
...... 8YTF NEED .* 

. ♦. FILLING .* 


♦****C3* ********* 
♦ ♦ 

♦ FILL ♦ 

♦ LAST OUTPUT ♦ 

♦ BYTE ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


*♦♦♦*£ !♦♦♦♦♦♦♦♦♦♦ 
♦ ♦ 

♦ FETCH POINTER ♦ 

♦ TO FIRST DC ♦ 

♦ WORK BUCKET ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


*****£ 3**** ****** 
♦♦♦♦ ♦ ♦ 

♦ ♦ ♦ CONVERT * 

♦ E3 ♦. • • .X*BYTE LENGTH TO * 

♦ * ♦ BIT LENGTH * 

♦♦♦♦ ♦ ♦ 

***************** 


.♦ DS ♦. YES 
♦• INSTRUCTION .♦... 
♦ . ,♦ 


*****C4********** 
♦ ♦ 

♦ DECREMENT ♦ 

♦ DUPLICATION ♦ 

♦ FACTOR BY l ♦ 

♦ ♦ 
***************** 


**♦♦£!**♦****♦♦ 

STORE 

DC/DS/LIT 

INDICATOR 


****«H !♦♦♦♦♦**♦♦♦ 
♦ ♦ 

♦ ALIGN DATA ♦ 

♦ FROM DC WORK ♦ 

♦ BUCKET ♦ 

♦ ♦ 
***************** 


****«F 2 ********* 

* BYTE 

* COUNT TO 

* OUTPUT 

* BUFFER 


**«**£ 2********** 

♦TSBPRT ^_3?R5# 

* PRINT * 

* ONE * 

* LINE * 

***************** 


*****H2********** 

* MOVE * 

* CURRENT * 

* LOCATION ♦ 

* COUNTER TO * 

* CENTRAL TABLE * 
***************** 


****j2********* 

* 4 

.X# EXIT TO F8C * 


***** * 
*35 ♦♦♦♦♦ 

♦ Bl##34 ♦ 

♦ ♦ ♦ G3 *.X. 
* ♦ * . 
♦♦♦♦ 


*«***G 3*** ******* 
♦ ♦ 

♦ SET ♦ 

♦ FIRST OPERAND ♦ 

♦ SWITCH * 


****H3##*#*#**# 

COMPUTE 
NEW BIT 
REMAINDER 


♦ YES 

♦♦♦♦ . 

♦34 ♦ .X.... 

♦ £4 #.X. 


YES .♦ ♦. 

...♦• ALIGNMENT • 
♦. NEEDED .♦ 


.♦LAST OUTPUT#. NO 
t.X#. BYTE NEED •♦... 
♦. FILLING .♦ 

♦ • •* 

♦ . .♦ 

♦ YES 


***** 05 * ********* 
♦ ♦ 

♦ FILL ♦ 

♦ LAST OUTPUT • 

♦ BYTE * 


*****05********** 
♦ ♦ 

♦ ALIGNMENT * 

♦BYTES TO OUTPUT# 

♦ BUFFER ♦ 

♦ ♦ 
***************** 


.♦ ANOTHER ♦. NO 


***«*F a********** 
♦ ♦ 

♦ BUMP DC ♦ 

♦ WORK BUCKET ♦ 

♦ POINTER BY 15 ♦ 


G4 ♦. 

* ♦• 

ERROR ♦. YES 
IN NEXT ...... 

OPERAND .♦ 


♦ • •♦ 

♦• •♦ 

♦ NO 


**««*j3*** ******* 


***************** 


*****H4########## 
♦ ♦ 

♦ ALIGN DATA ♦ 

♦ FROM DC WORK ♦ 

♦ 8UCKET ♦ 

♦ ♦ 
***************** 


.♦ OS ♦. YES . 

♦ . INSTRUCTION .♦ 

*• •♦ • 

♦ . •♦ • 

♦. :♦ x 

♦ NO ♦♦♦♦♦ 

. #35 ♦ 

. ♦ Bl# 


S .#LAS1 OUTPUT#. 
•♦. BYTE NEED •« 
♦• FILLING •* 


****«j 5* ********* 
♦ * 

♦ FILL ♦ 

,X# LAST OUTPUT ♦ 

♦ BYTE ♦ 

♦ ♦ 
***************** 


K 1 ♦• **#*#K2*## *♦*♦♦♦♦ 

•♦ ♦. ♦ ♦ 
.♦ ♦. YES ♦ OUTPUT ♦ 

♦. ALIGNMENT .♦ X*ALIGNMENT BYTES# 

♦. NEEDED .♦ ♦ ♦ 

♦. .♦ ♦ ♦ 
♦. .♦ ***************** 


♦####K3* **♦♦♦♦♦** 

♦ COMPUTE * 

♦ PCINTER TO * 
♦FIRST BYT F PAST* 
♦LEFT DELIMITER * 

♦ * 
♦♦*♦•*♦♦♦♦♦*♦♦♦♦* 


♦#*#*K4### *♦♦♦♦♦♦ 


***************** 


Chart 34. F8D - Phase F8 DC Evaluation (1 of 2) 
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OS ROUTINE 


***** 

*35 * 
* Bl* 


OS ROUTINE 


***** 

♦ 35 * 

♦ B3* 


****A5********* 

* * 

* ENTER TSBPRT * 


♦.FIRST OPERAND.*... 


♦♦♦•Cl********* 1 

SAVE 
ALIGNED 
LOCATION 
COUNTER 


****m********* 


El 


*. 


*• 


.* 00 ES *. NO 

*. OPERAND .♦ 

*. CONTAIN .* X 

♦.TEXT .* ***** 

*. .* *34 * 

YES * E4* 

* * 


****B3********* 


♦***C3* ******** 

RESTORE 

ALIGNED 

LOCATION 

COUNTER 

*************** 


****03********* 

SET 

DS FLAG FOP 
F8P 

*************** 


***** 
♦34 ♦ 
♦ F2 ♦ 


.♦ PRINT 
. ShllCH 
♦. ENABLED 


*****C 5* ********* 
* * 

♦ SET * 

♦ DC FLAG FOR ♦ 

* F0P * 

* * 
***************** 


*****05********** 

•FftP 32 A3* 

*_*-*_*_*-*_•-*_* 

* PRINT * 

* ONE LINE ♦ 

* * 
***************** 


****E5*** ****** 

* * 

* RETURN * 

* * 
*************** 


.* TYPE 
*• C. X. R. 
*. OR Z 


***** 
*34 * 
* E4* 


*. TYPE V 

*. 

*. 

*. .* 


.* OUP *. 

.* FACTOR *. NO 
. INITIALLY .*... 
♦. ZERO .* 


*34 * 
* E4* 


***** 
*34 * 
* A3* 
* * 


****jl********* 

SET 

DUPLICATION 
FACTOR * l 


Chart 35. F8D - Phase F8 DC Evaluation (2 of 2) 
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***** 3 ********* 

> ENTER F8N * 

* * 
*************** 


CNVRTi X 

**** * 83 * ********* 
* * 

* PHASE * 

♦INITIALIZATION * 

* * 

* * 

***************** 


ZWB1 X 

*#***£ 3********** 
* * 

* * 

* SCAN TEXT * 

* * 

* * 

***************** 


*****03********** 
* * 

* CONVERT AND * 
*MOO I FY EXPONENT ♦ 

* IF ANY * 

* * 
***************** 


**F ?♦*♦**** 

* MERRQR * 
**_*-*_*-*_*—** 

* STORE ERROR • 
* MESSAGE * 

* * 
*********** 


*****E4********** 
* * 

* DO FLOATING * 

X* POINT * 

* CONVERSION * 

* * 
***************** 


X 

*****£ 3*** ******* 
* * 

* 00 FIXED * 

* POINT * 

* CONVERSION * 

* * 
***************** 

«x!x 

ZWZ5 I 

X 

****H 3 ********* 

* * 

* RETURN * 

* * 
*************** 


Chart 36. F8N - Foating and Fixed Point Conversion 
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**** 


**** .* QpFS *. 

* *X t 14' .* 1TRSWH= ♦ . X‘10' 

* G4 *X ••••*. X'lO* OR .* 

* * ♦ . X'1A« .♦ 

**** *. .* 

*. .♦ 


**l*l******* 

* PIPPIN * 
**-*-*-*-*-*-** 

♦ INITIAL T7E »TRS* 
♦LIMITS € I m ♦ 
♦BLK COUNTS ♦ 


+++++CI ********** 

♦SET RELOCATION ♦ 

♦ DICTIONARY ♦ 

♦ RECORD LENGTH ♦ 

♦ X "OB • INTO ♦ 

♦ ITRSWH ♦ 
***************** 


♦ ♦♦♦ . 

READ X 

******01 *********** 

GTOR 

♦ *-*-*-*-*-*-* * 
GET INPUT 
♦RECORD RELOC ♦ 
DICTIONARY 


COMPLETE ♦• 
XREF LIST . 
.SORTED I N. ♦ 
♦.CORE .♦ 


♦*****CS* ********** 

WRI XRF 

* *_*_*_*_*_*_* * 
WRITE SORTED 
♦XREF RECORDS ♦ 

PM TAPF 


*****p 5* ******** 


♦ MfWF * 

♦RECORD TO SORT ♦ 

♦ ARE* * 


NO .♦ IS 

...♦. SORT AREA 
. *. FULL 

. ♦. .* 

X ♦. .♦ 

♦*♦♦ * YFS 

* ***** 

♦ 01 ♦ * . 

♦ * HI ♦.X. 


.* *. **** 
.♦ WERF ♦. YES ♦ ♦ 

.XR. ANY RECORDS ...... X^ HI ♦ 

♦. READ .♦ * * 

*. .* **** 


XRELOD X 

*****c 2********** 

♦ SET ♦ 

♦ REFERENCE ♦ 

♦ RECORD LENGTH ♦ 

♦ XUO* INTO ♦ 

♦ ITRSWH * 

***************** 


******£ 2 *** ******** 

GTPR 

* *-*-*-*-*~*-* * 
..X READ INPUT 

♦RECORD CROSS * 
REFERENCE 


* *-*-*-*-*-* 
PUNCH ANO LIST 
* RELOC OICT ♦ 
RECORDS 


*****FS* ********* 


**j] ******* 

♦ ESCORT ♦ 

♦*-*-*-*-*-*-** 

* . X^ SORT ♦ 

♦ INPUT ♦ 

♦ TEXT * 

*********** 


X ♦. .♦ 

**** * 

* ***** 

♦ D1 * * 

♦ ♦ G<* *... 
***** * . 


******04*********** 

RDIXRE 

* *-*_*-*_*-*-* * 

MERGE SORTED 
♦XRFF REC WITH* 
TAPF RECORDS 


♦. END OF DECK 


.* WERE *. 

.* ANY CROSS *. YES 
.X*. REFERENCES ...... 

*. READ .♦ 


.* * . **** 

.* ALL CROSS *• NO * * 

*. REF PECORDS .*....X* G2 * 
*. READ .* * * 


*****j ?********** 
* * 

* MOVE CROSS * 
♦REFERENCE INPUT* 

* RECORD TO * 

* SORT AREA * 
***************** 


NO .* IS *. 
,..*. SORT AREA .* 
*. FULL .* 


****** j 3* ********** ******j 4*** ******** 

SET0T2 

* * *-*-*-*-*-*—*-* * 
PUNCH END CARD X........ PRINT C»OSS REF 

* ♦ ♦FRHM CORE DR ♦ 

TAPE 

************* ************* 


****K3 ********* 


♦ EXIT TO FD 


***************** 


Chart 37. FPP - Phase FPP Post Processor 
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**** 


******A3 *********** 


****B 1 ********* 

GET 

ERROR BLOCK 
COUNT 


Cl ♦ . 

.* ANY *. 

YES .*RELOCATABLE*. 
...*. Y-CONS IN '.* 
♦•ASSEMBLY .* 


** 01 ******* 

* GETERR * 
**_*_*_*_*_*_** 

* GET ERROR * 
* RECORO * 


.* AIL *. 
.♦MSGS* FROM *• NO 
*. ERROR RECORO .*.•• 
*. PRINTED .* 


*****C4********** 
* * 

* STEP TO NEXT * 
•X*ERROR NUMBER IN* 

* RECORD * 


.* ERROR *. 

* RECORD *. YES 
POINTER * .*.... 

*. ZERO •* 


**** . 

MLOiA X 

*****F1 ********** 

* GET ♦ 

* STATEMENT * 

* NUMBER ERROR * 
♦MESSAGE APPLIES* 

* TO * 

***************** 


•DOES NEW*. 

.* STATEMENT *. NO 
♦.NUMBER * OLD .*... 
♦.STATEMENT.* 
*NUMBER •* 

*. .* 

* YES 


ML 11 

****♦♦£ ?♦* ********* 
PRINT *N0 
* STATEMENT * 
...X FLAGGED* ANO 

• LINE COUNT * 


♦***F 2******* ♦* 

* EXIT * 

* TO DOS * 


♦****G 2 ********** 
* * 

* STEP COUNT * 
.X* OF STATEMENTS * 

* FLAGGED * 


MLO 1 X 

♦♦D3******* 

* GETERR * 
**-*-*-*-*-*-#* 

♦GET NEXT ERROR * 
* RECORD * 


.* ERROR *. **** 

.* RECORD *. NO * * 

*. POINTER * .*....X* FI • 

*. ZERO •* * * 

*. .* **♦* 

*• ♦ * 

* YES 


ML10 X 

******F3*** ******** 

PRINT 

* NUMBER * 

OF STATEMENTS 
* FLAGGED * 


♦***G3* ******** 

• EXIT « 

* TO DOS * 


MLO IB X 

1 ********** 
♦CONVERT STATE- * 
♦HENT NO. £ ERR.* 
♦MESSAGE NO. FOR* 

* PRINTING WITH * 

* MESSAGE * 
***************** 


***** j 1 ********** 


ML03 X 

****** i********** 

* LOOK UP * 

* ERROR MESSAGE ♦ 

* IN. TABLE AND *X. 
♦MOVE TO OUTPUT * 

* AREA * 

***************** 


Chart 38. FD - Phase FPP Diagnostic 
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♦***A3* ******** 
> ENTRY 

*************** 


DISABLE 
SYSLST 
AT PUTLST 

* 

************* 


YES .* NO 
....*. - SYSLST 

*. CODE 


ENTERED *. YES 
FROM .*.... 

DTF .* 


******£ 2 *********** 


************* 
*♦** 


.* *. **** 

END OF *• YES * * 

CODE LIST •*••«. X* F5 * 


.* *. NO 

. SYSLST .*.., 
*. OK .* 


*«****Gt *********** 

* PUT * 

MSG ON 

♦ SYSLST * 

************* 


******H| *********** 


************* 


**************** 


**** 

TYP 112 

♦****F 3*** ******* 


***♦ 

TYPE 115 

*****G3*** ******* 


**************** 


****H2********* 


*************** 


*****B4********** 
* * 

* LOOK UP * 

X* UNIT NAME * 

* IN TABLE * 

* * 
***************** 


FOUND 

. .** 

*• • * 

♦ YES 


* MOVE 

* UNIT NAME 

* TO MSG 

* 

**************** 


***♦♦ 05 * ****** 

* * 

* DISABLE 

X* SYSLST 

* AT TELL 

* * 
************** 


.♦ 

• •* 

* NO 

. **** 

• * * 

..X* K4 * 

* * 

**** 


*****F4********** 


***************** 


******H 4* ********** 


************* 


****** J 4*** ******** 


************* 
**♦* 


CLOSE ALL 
FILES 

* PRESENT * 

************* 


****** 05 *********** 

* FLUSH * 

SYSLST TO 
* EOF * 

************* 


«***H 5* ******** 


*************** 


**** 

OPENLOG X 

* *****k 4*********** 


************* 


Chart 39. ABT 


Phase ABORT 
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APPENDIX A. ASSEMBLER OPTIONS 


OPTIONS 

The programmer may specify the following 

assembler options in the // OPTION card. 

DECK LIST SYM XREF 

NODECK, LINK, CATAL, NOLIST, NOSYM, NOXREF 

These options are defined as follows : 

DECK - The object module is placed on the 
device specified in the SYSPCH state- 
ment. 

LINK or CATAL - The object module is placed 
on the device specified in the SYSLNK 
statement. In addition, CATAL causes 
the core image module produced by 
LNKEDT to be cataloged on the core image 
library. 

LIST - An assembler listing is produced. 


SYM - The object module (if produced) 
contains the special symbol table 
required by the test translator 
(AUTOTEST) routines. 


XREF - The assembler produces a cross- 
reference table of symbols as part of 
the listing. 


The prefix NO is used with the above 
options to indicate that the option is not 
wanted. If contradictory options are 
entered, e.g., LIST, NOLIST, the rightmost 
option, e.g., NOLIST, is used. 


DEFAULT ENTRY 

If no options are specified, the assembler 
assumes the default entry values supplied 
at SYSGEN. 


Appendix A. 
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APPENDIX B. DICTIONARY, TABLE, AND RECORD FORMATS 


The dictionary, table, and record formats 
are grouped according to phase. The macro 
generation phases create dictionaries 
(global and local) and source, error, and 
edited text records. 

The assembly phases create other tables 
and dictionaries (symbol table, relocation 
dictionary, etc.,) and error records. They 
also create source records for generated 
statements and pass and/or modify the 
edited text records which are not resolved 
during macro generation and conditional 
assembly. 

This appendix is divided by phases. 

The formats are then subdivided according 
to dictionary, table, and record formats 
within each phase. 


'’A" Pointer (local big "A" pointer) - 
Backward chaining address of the 
preceding entry in a dictionary chain. 

Flag - (Global Dictionaries) 

Bit 0 0 - Normal global variables. 

1 - Obsolete global variables 

(global variables which have 
been declared apart from the 
current part of the source 
deck being processed, such 
as macro definition or main- 
line program) . 

NOTE: Bit zero is used for global 
variables only. 


MACRO GENERATION PHASES (F2 AND F3) 

Phase F2 creates and subsets the global, 
open code local, and macro local diction- 
aries. The subsetted dictionaries are used 
by Phase F3 for macro definition editing 
and conditional assembly. 

F2 creates source records for text 
stream statements from SYSIPT. F2 also 
creates edited text records for all input 
statements from SYSIPT and SYSSLB — except 
it creates no edited text records for ICTL, 
ISEQ, MACRO, COPY, or comments (* and .*) 
statements. Edited text records are either 
Type I or Type II. Type I records include 
machine instructions and all assembler 
instructions except Type II. Type II 
records have non-standard formats. They 
include REPRO, SETx, AIF, AGO, MEND, MEXIT, 
and End-of-Data-Set records. Type II 
records (except REPRO) are resolved during 
F3. Type I records and REPRO records are 
modified by F3 for processing by the as- 
sembly phases. 


Macro Generator Dictionary Entries 

The macro generator dictionaries — il- 
lustrated in Figure Bl — are summarized 
below. 


Bits 1-4 


0000 - Op codes 

0001 - Internal assembler op 

code 

0010 - Extended mnemonics 

0011 - Macro names 

0100 - Global A variables 

0101 - Global B variables 
0110 - Global C variables 


Bits 5-7 Length of BCD entry minus one 
(L-l) 


Flag - (Local Dictionaries) 


Bit 0 0 

1 


Synonym (part of a chain) 
End of the chain 


Bits 1-4 


1000 - Sequence symbols 

1001 - Parameters 

1010 - Ordinary Symbols 

1100 - Local A variables 

1101 - Local B variables 
1110 - Local C variables 


Bits 5-7 Length of BCD entry minus one 
(L-l) 


Rl Mask - Rl field for extended mnemonics. 
The extension of op codes field is 
omitted for machine operation code 
entries . 


Global and Local Dictionaries 

"A" Pointer (global big "A" pointer) - 
Forward chaining address of the next 
entry in a dictionary chain. 


Mnemonic - The name in Internal Assembler 
Code . 

"a" Pointer - Little "a" pointer to a loca 
tion in the Phase F3 dictionary that 
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GLOBAL 


LOCAL 



SUBSETTED GLOBAL AND LOCAL 


Symbols 

Bytes 1 2 2 


Type 


Length 


Scale 


SETA Variable 

Dimensioned 


Bytes 

1 

4 

4 

4 


n 

Entry 

Entry 

Entry 


Undimensioned 

4 

I Entry I 


SETB Variable 

Dimensioned 

Bytes 1 1 1 


n 

SETB 

Variables 

SETB 

Variables 

H* T *4 


SETC Variable 

Dimensioned 


Bytes 

1 

1 

8 

1 

8 


E 

m 

Data 

L 

Data 



Entry — ► 



Undimensioned 

1 

SETB 

Variables 


Undimensioned 
1 8 


L Data 


Figure Bl. Macro Generator Dictionary Entry Formats 


will contain the subsetted entry for 
this mnemonic. 

NOTE/POINT - NOTE/POINT Address. Before 
the dictionary associated with this 
mnemonic is subsetted, this entry will 
contain the NOTE location of the begin- 
ning of the edited text for the corres- 
ponding macro definition. After the 
local dictionary has been subsetted, 
this field contains the NOTEd location 
of the subset dictionary, which will in 


turn contain the NOTEd position of the 
edited text of the macro definition. 

MCP - Macro chain pointer. The backwards 
chaining address of the preceding 
macro name entry in the dictionary. 

B - The position of the beginning of the 
sequence symbol edited text. 

C - Dimension, the declared SET variable 
dimension. This will be zero if un- 
dimensioned. 


Appendix B . 
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D - The declared dimension of the local Size of MD - The size of the total macro 

SET variable symbol. It will be zero if dictionary in bytes, 

the symbol is undimensioned. 

The header as modified during F3 processing 
PN - The operand position number assigned of the macro instruction is as follows: 
to the symbolic parameter. 

Type - Type attribute. See Table Bl. B y tes 

Length - Length attribute. 

Scale - Scale attribute: 

Diet Addr - The location of the higher 

Bit 0 0 - Positive level local dictionary. If the macro 

1 - Negative being processed is not an inner macro, 

this pointer points to the open code 
Bits 1-15 Scale attribute local dictionary. 

ACTR Loop - Same as macro dictionary 
Subsetted Dictionaries header. 


“Sir’' loop* counter KSnT fl * M-l 


n - number of variables in entry 

L - True length of character string (data) 

T - Length of SETB dictionary entry 
(n/8+1) 

Type, Length, Scale - See above. 


Macro Local Dictionary Header 



The header is attached to the subsetted 

dictionaries' output by Phase F2. 

ACTR Loop - The ACTR loop limit', i.e., 
initial assumption made by processor. 

NOTE/POINT - Location of block on SYS003 
in which the macro definition edited 
text begins (points to prototype record) . 

No. of blocks - The number of segments on 
SYS003 in which the dictionary is 
contained. 


ACTR CTR - The current loop count, i.e., 
the number of times the loop has been 
passed. 

NOTE/POINT - The location of the block in 
which the end-of-macro instruction 
record is located. 

FLAG - A switch, used to signal whether 

the length table has already been stored 
following a parameter table. 

SYS001/3 - A switch to indicate: 

8 - Input is from SYS003 
0 - Input is from SYS001 

Delta M-I - Position of discontinued text 
(record following macro instruction) 
relative to beginning of block. 


Macro Dictionary Parameter Table Entries 

A macro dictionary parameter table is built 
from the macro instruction and macro 
prototype parameters when the macro defi- 
nition is edited. The parameter table is 
written on SYS003 immediately following 
the macro local dictionary. The parameter 
formats are illustrated in Figure B2 . 
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Entry Type 



SYSNDX 

Param- 

eter 

Number 

NDX 

■ 

4 bytes 
Character 
Value 

K|^gJI 


SYSECT 

Not 

Used 

CSECT 

■ 

BCD Name 

Name field of 

Character string 
Operand 


CHAR 


Name or 

Character String 



Self-defining Term 
(Hex, Binary, Decimal) 


HBD 

E^H 

'c‘ 

■ 

Character Representation 


Self-defining 

character 


CSD 


a 

■ 

Character Representation 

Symbol 


SYM 

5 bytes 
Attributes of 
symbol 

a 

H 

Symbol Name 

Sub list 


SUB 

|g|n 

2 bytes 
K' 

N' 

■ 

2 bytes 
L 1 

Parameter Entry 
Type 1 , 2, 3, 
or 4 above 


2 bytes 
L 2 

Parameter Entry 
Type 1, 2, 3 
or 4 above 

) 

N' 


T = Type attribute 

L = Length of foiiowing field (For HBD, CSD, CHAR and SYM L = K' ) 
'c' = character flag — a character string follows 
Tot. L = Total length of sublist entry 

K' (not sublist) = Number of characters in operand (excluding commas) 

K' (sublist) = Number of characters between outer commas in a sublist 
N' = Number of operands in a sublist 

N’ = 1 if the operand is a sublist 
N‘ = 0 if the operand is omitted 


Figure B2. Macro Dictionary Parameter Table Entries 


Macro Generator Record Formats 

The fields which make up the macro generator 

records — illustrated in Figure B3 — are 

explained below. 

Type ID - Type of record. See Table Bl. 

This byte is dropped after Phase F3. 

R/L - Record Length 

FLAGA - A two byte field of information 
on how the record should be processed. 

See Edited Text Record Fixed Field 
Format in Phase F7. The source record 
contains only the first FLAGA byte. 

Op Code - Absolute (hexadecimal) operation 
code for machine and assembler opera- 
tions . See the DOS Assembler Language 
manual for the machine operation codes 
and Table B2 for assembler operation 
codes . 

ASC - Assembler Switch Codes. (Inserted in 
F2 but not used by the macro generator 


Table Bl. Type Indicators (Phases F2/F3) 


Description of Record 

Type Indicator 

Source statement continuation record 

08 

Error record (warning message) 

08 

End of data set 

0A 

Error record (not warning message) 

0D 

Edited text records (machine instructions, DC, DS, 
etc. ) 

00 

CSECT, DSECT, START edited text record 

01 

AGO edited text record 

02 

AIF edited text record 

03 

SETx and ACTR edited text record 

04 

Macro instruction edited text record 

05 

Macro definition prototype statement edited text 
record 

06 

MEXIT and MEND edited text flag record 

07 

ANOP edited text flag record 

09 

Macro instruction or prototype operand value 
record 

0B 

End of macro instruction or prototype record 

OC 
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TYPE 1 EDITED TEXT 

Bytes 1 2 2 11 3 11 Variable 1 1 1 Variable 1 1 1 Variable 1 1 1 Variable 1 1 


Type 

ID 

R/L 

FLAGA 

Op 

Code 

ASC 

(Zeros) 

flog 

L 

Name 

© 

flag 

L 

Operation 


flag 

L 

Operand 

© 

flag 

’PUT’ 

L 

Comments 

151 

© 






Fixed Portion Name Entry Operation Field Operand Entry Comments Field 




SOURCE RECORD 




ERROR RECORD 


i 

2 

1 

Variable 


Bytes 

i 

2 

1 

1 

i 

1 

Type 

ID 

R/L 

FLAGA 
(1st byte) 

Source 


Type 

ID 

R/L 

FLAGA 

Number 

of 

errors 

Error 

code 

X'OO' 

l 

-84 




L 

Ft 

*— X'OD' L 

-7 ^-XUO' 




TYPE 2 EDITED TEXT 
REPRO 


Bytes 

1 

2 

2 

1 

1 

3 

1 

i 

5 

1 

1 

1 

Variable 

1 

80 


Type 

ID 

R/L 

FLAGA 

Op 

code 

ASC 

(zeroes) 

a 

a 

Operation 

□ 

Operand 

L 

Comments 

1 



1 — X'OO' 



L XW L-REPRO 


SET Statement' 



(no name field) 

MEND OR MEXIT 

Bytes 1 2 

7 1 

2 

11 11 

Bytes 1 


Type 

ID 

R/L 

Dummy 

SETx 

Flag 

"a" 

Pointer 

E 

Blank 

Operand expression 
(eval. routine format) 

Blank 

© 


Type 

ID 

Dummy 

^-X'04' 

Name Field 






t-X'07' 


End of Data Set 


A IF Statement 


T 


X'OA' 


Bytes 

1 

2 

1 

Bytes 

1 

2 

7 

Variable 

1 

2 

i 


Type 

ID 

R/L 



Type 

ID 

R/L 

Dummy 

AIF expression 
(see eval, routine 
formats) 

Blank 

"a" 

pointer 

Dummy 


t-X'03 


AGO Statement 


Bytes 

1 

2 

7 

1 

2 

i 


Type 

ID 

R/L 

Dummy 

Dummy 

"a" 

Pointer 

Dummy 


t-X'02' 

Figure B3. Macro Generator Record Formats (1 of 2) 
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MACRO INSTRUCTION AND MACRO PROTOTYPE 
Bytes 


I Header (one logical) Record - 

1 2 2 5 1 


1 Variable 1 


■One logical record- 


Variable Variable Variable 


One logical record • 


Variable Variable Variable Variable 


Type 

ID 


R/L 


FLAGA 


dummy 


^^pointe£>; 


Pj. Name* 

^ 


Blank 


Source 


Operand 

1 


Operand 

2 


Source 


Operand 

3 

Operand 

4 

Operand 

5 

X'OC 

R/L 


N k 


-X'05‘ 

-X'06‘ 


I — Macro Instruction only 
1— Prototype only 


SUBSTRING OPERAND 


Bytes 


V_ 


End of Macro 
Instruction/ 
Prototype Record 


TYPICAL OPERAND 


r 

— 





\ 

Type 

ID 

R/L 

Dummy 

© 

° r ® 

Value* 

' 


r 


‘OB' 


NAME AND 

OPERAND VALUE FORMATS 


CT~ 

1 

7 

1 

i 

1 

5 


Variable 


Type 

ID 

R/L 

Dummy 

© 

or 

© 

Dummy 

Flag 

X'FO 1 

Dummy 

Flag 

X'02‘ 

Value* 

' 


Symbol 


’ X'OB' 


First Record 


Keyword 

Operand 


' 1 

1 

2 


3 


1 

1 

Variable ^ 

Type 

Flag 

X'FA 1 

IIqII 

pointer 

Dummy 

Flag 

X‘27‘ 

L 

Symbol 

1 

1 

i 

Variable 

1 

1 


Variable 

Type 

Flag 

X’FA 1 

L+l 

Keyword 

Name 

= 

Dummy 

Operand 

Value 

format 


1 Variable 1 


1 Variable 


Type 

ID 

R/L 

Dummy 

Flag 

X‘F9' 

Value* 

' 

Self-Defining 

Term 

Type 

Flag 

Bi nary 
value 

Flag 

X'27 1 

L 

Value 


• X'OB’ 


Any Intermediate Record 


X, C, B, or D 


Character 


1 1 1 Variable 


Type 

Flag 

X'27 1 

L 

Value 


117 1 Variable 1 1 1 

Type 

ID 

R/L 

Dummy 

Flag 

X'F9‘ 

Value* 

) 

N 

' 


-X'OB' 


Last Record 


E 


comma present 
if not last 
operand 


*The operand value of a typical or 
substring operand is expressed in one 
of the operand value formats. 


1 1 1 


Omitted 

Operand 


Type 

Flag 

L 

XW 

X'27' 

XW 


Evaluation 

Required 


Variable 


Evaluation 

Flag 


Expression 


Evaluation 
Routine Formats 


■See Evaluation Routine Formats 


Figure B3. Macro Generator Record Formats (2 of 2) 
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Table B2 . Assembler Operation Codes 


phases. See Edited Text Record Fixed 
Field Format (TXASC) in Phase F7.) 


Mnemonic 

Hexadecimal 

Value 

GBLA 

0 

GBLB 

1 

GBLC 

2 

LCLA 

3 

LCLB 

4 

LCLC 

5 

SETA 

6 

SETB 

7 

SETC 

8 

AIF 

9 

AGO 

A 

ANULL 

B 

COPY 

C 

MACRO 

D 

MNOTE 

E 

MEXIT 

F 

MEND 

10 

ICTL 

11 

ISEQ 

12 

PRINT 

13 

SPACE 

14 

EJECT 

15 

PUNCH 

16 

REPRO 

17 

TITLE 

18 

ENTRY 

19 

EXTRN 

1A 

START 

IB 

CSECT 

1C 

DSECT 

ID 

COM 

IE 

EQU 

IF 

ORG 

20 

END 

21 

LTORG 

22 

USING 

23 

DROP 

24 

Literal DC 

25 

DC 

26 

DS 

27 

CCW 

28 

CNOP 

29 

DXD 

2B 

CXD 

2C 


Flag - See Table B3. The flag byte in- 
dicates such things as logical opera- 
tors, self-defining term type, symbol 
attribute type, macro parameter type, 
etc. The flag bytes in the record 
format illustrations are normally 
identified by their actual hexadecimal 
value or by a circle symbolic 
representation (such as (?) ) . 


L - The length of the field which follows 
this byte. If L is zero, the field which 
normally follows it is not present. 

L preceeds the name, operation, operand, 
and comments fields in edited text and 
the value field in Operand Value Formats. 

Type - Internal value for type attribute . 

See Table B4. 

N - Number of positional operands in a 
^ macro prototype . 


N, - Number of keyword operands in a macro 
instruction or prototype. 

N - Number of elements in a sublist 
operand . 

Dummy - Unused bytes. 

"a" pointer - Little "a" pointer to a 

location in the subsetted dictionary of 
the entry for this mnemonic. 

C - Bit 0 Dictionary bit 

0 - Local 

1 - Global 

5-7 SETB bits 
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Table B3. Flag Values 


Table B3. Flag Values (Continued) 


Value 

(Hex.) 

Flag Description 

00 

Period 

01 

Right Parer: . 

02 

Left Paren. 

03 

Subscripted Left Paren. 

04 

Plus 

05 

Minus 

06 

Multiply (asterisk) 

07 

Divide (slash) 

08 

Equal 

09 

Not Equal 

0A 

Less Than 

0B 

Greater Than 

OC 

Less Than or Equal to 

0D 

Greater Than or Equal to 

0E 

Not 

OF 

Or 

10 

And 

22 

Hexadecimal Self-Defining Term 

23 

Binary Self-Defining Term 

24 

Decimal Self-Defining Term 

25 

Character Self-Defining Term 

26 

Null Symbol & Evaluation Flog 

27 

Character String 

28 

SETA 

29 

SETB 

2A 

SETC 

2B 

Comma 

2C 

Begin Substring 

2D 

Begin Substring Operands 

2E 

First Operand Completed 

2F 

Second Operand Completed 

30 

Actual Internal Value Right Paren. Used Only on 

Sub list 

31 

Arithmetic Expression mode.(Absence indicates 
character expression) 

32 

Blank 

33 

type Attribute Reference 

34 

Length 11 " 

35 

Integer !l “ 

36 

Scale " 

37 

Number " " 

38 

Count 11 " 

39 

Symbolic Parameter Reference 

3A 

&SYSLIST 

F0 

Sublist 


Value 

(Hex.) 

Flag Description 

F8 

End of machine instruction field 

F9 

Continue sublist 

FA 

Symbol 

FB 

Positional 

FC 

Keyword 

FD 

PUT (No evaluation necessary) 

FE 

End of block 

FF 

End of evaluation 


Table B4. Internal Values for Type 
Attributes 


Value 

(Hex.) 

Type 


Value 

(Hex.) 

Type 

00 

P 


0D 

W 

01 

Z 


0E 

1 

02 

E 


OF 

C 

03 

D 


10 

Q 

04 

K 


11 

B 

05 

F 


12 

J 

06 

G 


13 

X 

07 

H 


14 

M 

08 

S 


15 

T 

09 

A 


16 

U 

0A 

V 


17 

O 

0B 

Y 


18 

N 

OC 

R 


19 

u‘ 
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Continuation and Segmenting 


Attributes (L'l'S'T 1 ) 


Macro instructions (and prototype) may be 
segmented by adding a continuation flag 
after the last operand record in the block. 

An operand record must be fully contained 
in one block. 

A - Flag byte (type of attribute) . See 
Table B3. 



Operand Reference 


B - Symbolic parameter (X'39 1 ) or symbol 
flag ( X 1 FA ' ) . See Table B3. 


Reference in a macro definition model 
statement or inner macro instruction to 
a symbolic parameter is made by position. 
Operands are numbered as follows: 


0 $SYSNDX 

1 $SYSECT 

2 Symbolic parameter in name field 

of prototype statement 

3 

t Operand field of prototype 

202J statement 


Keyword operands are given a position 
number similar to positional operands. The 
positions are assigned in the order that 
they appear in the operand field of the 
prototype statement . 

Format of request for substitution of 
macro instruction operand in place of 
symbolic parameter: 


C - 2-byte "a" pointer if the reference, is 
to an attribute of a symbol, or param- 
eter position number in low order byte 
of C if the reference is to an attribute 
of a symbolic parameter. 

D - Dummy 


Character String 


bytes 




variable 



A - Flag byte 'C' (X'*27') 


B - True length byte (if zero, C will not 
exist) 


bytes 


1 2 1 



A - Operand request flag (X'39 1 ) 
B - Operand number 


Evaluation Routine Formats 


C - Data bytes (variable bytes of char- 
acters) 


Decimal, Hexadecimal, Binary, or Character 
Self-Defining Term 


bytes 1 3 

m rr 


These sub-records are used to describe 
expressions that require substitution and/ 
or evaluation. 


A - Flag byte (hexadecimal = X’22', binary = 
X'23', decimal = X'24', character = 

X ' 25 ' ) 
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B - Data bytes. Three bytes of data in 
binary. 

Variable Symbol 


following the other, will be concatenated, 
and no concatenation flag is required. 

PHASE F7 


bytes 1 2 



Record Formats 


Error Record 


A - Flag byte (SETA = X'28' SETB = X'29', 
SETC = X 1 2A 1 ) 

B - 2-byte "a" pointer 

C - Bits 5-7 for subscripted SETB. In- 
dicates in binary form the particular 
bit (0-7) within the byte referenced 
by B that contains the SETB evaulation; 
bit 0=0 for local or 1 for global. 


Bytes 2 1 1 1 1 


R/L 

FLAGA 

Error 
count 
= N 

Error 

type 

Column 

pointer 


R/L - Record length. R/L = 4 + 2N, where 
16 £ N>0. (There may be as many as 16.) 

Edited Text Records - General 


Substring 

1 variable 1 

D00 


Phase F7 receives edited text records in a 
format prepared by the macro generator. 

Phase F7 processes these records and attaches 
an "appended fixed field" and, when requir- 
ed, "work buckets". The description of 
the F7 edited text records that follows 
gives the field names as they appear in 
the listings. 


bytes 


riable 1 


iabU 


□ □□HE 


A - Begin substring 'BEGSUB' flag (X'2C') 

B - Character expression (variable bytes) 

C - Begin first operand 1 SUBOPE' flag 
(X ' 2D ' ) 

D - Expression 1 (variable bytes) 

E - First operand completed 1 SUBCOM' flag 
(X'2E') 

F - Expression 2 (variable bytes) 

G - End of substring notation ' SUBCLS.' 
flag (X 1 2F 1 ) 


Sub scrip ting. Left parenthesis is replaced 
by a special subscript left paren flag 
(X' 03 1 ) . 

Remainder of the format is as previously 
described. 


Concatenation . Occurs automatically by 
just eliminating the period. Two character 
strings (or SET variables), one immediately 


Bytes 


2 

r~ 

2 

Assembler Flags • >■ 

1 1 2 

1 Variable 1 

TXRL 

FLAGA 

TXHEX 

TXASC 

TXABP 

TXNAML 

TXNAME 

TXOPL 


Bytes 


-Variable Field (Cont'd) ■ 


1~ 


Appended 
Fixed Field 


"I 


Variable 1 Variable 1 Variable 


TXOP 

TXOPNL 

TXOPN 

TXCOML 

TXCOM 

TXLOC 

TXURS 


Misc. 


Bytes 


I— 


Work BuckeKs) (where appended) -i 
variable 


Type 1 and/or Type 2 and/or Type 3 
Work Buckets 
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The fixed field and the variable field are 
the input record to Phase F7. The appended 
fixed field is attached to this record in 
Phase F7. 


Edited Text Record Fixed Field Format 

TXEL - Record Length. This will be set to 
the total number of bytes (including 
appended fields) by the GET statement 
routine in Phase F7. 

FLAG A - 

Bit 0 TXLRI . Last record in buffer 

indicator. Correctly set by the GET 

statement routine in Phase F7. 

Bits 1-3 TXRT . Record type. 

000 - Print as is. Source record 
only. (These are assembly 
records created from program source 
inpu+- records in Phase F2 . ) 

001 - Error record. (Created in any 
phase. ) 

010 - Print as is, but do not display 
a statement number. Source record 
only. (Created in Phase F3 from 
edited text, type 110, for condi- 
tional assembly substituted state- 
ments outside of macro definitions.) 

011 - Print as is if GEN option is on. 
Steps statement number counter. 
Source record only. (Can be 
source record of comments for 
generation within macro defini- 
tion, e.g., "*" in Phase F2, or 
may be source record created in 
Phase F3 from edited text, type 
111, generated by macro instruc- 
tion expansions.) 

100 - Process only. Edited text 
records only. (Edited from 
source in Phase F2.) 

101 - Internal assembler control 
record. (In Phase F7, CSECT, ORG, 
and LTORG . ) Edited text records 
are generated for END statement 
processing. 

110 - Process this record and con- 
struct source record for print. 
(Edited text, but no source, e.g., 
Phase F7 literals, and Phase F3 
conditional assembly substituted 
statements outside of macro 
definitions . 


Ill - Process this record and con- 
struct source record for print if 
GEN option is on. (Edited text 
and MNOTE statements generated by 
macro expansions. Phase F3.) 

Bit 4 TXBF. Break flag. Indicates that 
a logical record continues in the 
next physical block. The Phase F7 
GET routine arranges all edited 
source and edited generated records 
so that this condition does not exist. 

Bit 5 TXERI . Error record follows in- 
dicator. Used by the PUT ERROR 
common subroutine in Phases F7 and F8 
to determine whether to create a 
new error record or to attach to an 
existing error record. 

Bit 6 TXESI . Equal sign indicator. Set 
by the Phase F7 GET statement routine. 

0 - There is no literal in the operand 

of this statement. 

1 - There is a literal in the operand 

of this statement. 

Bit 7 TXMARK. Phase F7 iteration point 
flag. 

Bits 0-1 TXTO. Type of operation. 

01 - Machine operation. 

10 - Assembler operation. 

00 - Unchecked. (Phase F7 GET state- 
ment will set equal to 01 or 10 if 
a 00 condition exists and a legal 
operation code is converted.) 

Bit 2 TXEMF. Extended mnemonic flag. 

Bit 3 TXMDN . Multiply defined name 
indicator. (Set by Phase F7 for 
future passes.) 

Bits 4-7 TXRIM. Rl mask for extended 
mnemonics. Used for special switch 
codes on assembler operations. 

Bit 4 - Name required. 

Bit 5 - Name not allowed. 

Bit 6 - Operand required. 

Bit 7 - Operand not allowed. 

TXHEX - Machine operation code or internal 
assembler operation code. 
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TXASC - Assembler Switch Code for machine 
operations . 

Bit 0 0 - No floating point register 

required. 

1 - Floating point register 
required. 

Bit 1 0 - No even register required. 

I - Even register required (0, 

2, 4, 6); or register 0 or 
4 required. 

Bits 2-3 00 - No boundary alignment. 

01 - Half word. 

10 - Full word. 

II - Double word boundary 

alignment. 

Bits 4-5 Type of class within in- 
struction (XX + 1) . 

Bit 6 1 - Literal permitted in 2nd 

and 3rd operand. 

Bit 7 1 - Literal permitted in 1st 

operand. 

TXASC - Assembler Switch Code for Assembler 
Operation . 

Bit 0 Uninitiated private code. 

Bit 1 Possible symbol table entry. 

Bit 2 Location counter reference. 

Bit 3 Special Phase F7 cross-reference. 

Bit 4 Substitution required. 

Bit 5 Not Used 

Bit 6 Not Used 

Bit 7 Phase F8 uninitiated private 

code . 

TXABP - Appended fixed field pointer. 


Edited Text Record Variable Field Format 

TXNAML - Name field length. If zero, there 
is no name field. 

TXNAME - Name field. 

TXOPL - Operation field length. 

TXOP - Operation field. 

TXOPNL - Operand field length. If zero, 
there is no operand field. 

TXOPN - Operand field. 

TXCOML - Comments field length. If zero, 
there is no comments field. 

TXCOM - Comments field. This field will 
contain comments and extraneous data. 


Edited Text Record Appended Fixed Field 

Format 

TXLOC - Location counter. Set by Phase F7 

during assignment pass . 

TXURS - Unresolved symbol counter. 

Misc. - 

Bits 0-3 Unused. 

Bit 4 TXLES . End of string indica- 

tor for literal DCs. Unused on all 
other types . 

Bits 5-7 TXSTG. String number for 
literal DCs . 

or 

TXALIN. Alignment for machine 
operation codes. 


Work Buckets 

There are three primary types of work 
buckets : 

• Type 1 - Literal in operand. 

• Type 2 - Symbol in operand. 

• Type 3 - DC, literal DC, and DS opera- 
tion code . 

These work buckets are appended to edited 
text records by the Phase F7 GET statement 
the first time through. 


Literal in Operand. If the equal sign in- 
dicator is set, a 6-byte Type 1 work bucket 
will be appended immediately following the 
appended fixed field. The format for the 
Type 1 work bucket is given in Figure B4. 

Byte 1 - 

Bit 0 TXWTYP. Work bucket type (must 
be zero; 0 = type 1) . 

Bit 1 TXWLEN. Work bucket length 
(must be zero? 0=6 bytes) . 

Bits 2-5 (Blank) 

Bit 6 TXLEVI. Literal evaluated 
indicated. 

Bit 7 TXLASI . Literal assigned 
indicator. 
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TYPE 1 WORK BUCKET - LITERAL IN OPERAND FIELD 


T 

T 


T 

T 




X 

X 


X 

X 




W 

T 

W 

L 


L 

E 

L 

A 

TXLSTG 

TXLDSP 

TXLLEN 

Y 

E 


V 

S 




P 

N 


1 

1 





TYPE 2 WORK BUCKET 
Bytes 1 


0 

1 

2 

3 

4 

5 

6 7 r T 

Y 

N 

T 

T 

T 

T 

T 

T 

T 





X 

X 

X 

X 

X 

X 

X 





W 

w 

S 

S 

S 

S 

S 

TXSLEN 

TXSESD 

TXSVAL 


T 

L 

D 

u 

L 

E 

T 





Y 

E 

O 

B 

A 

X 

P 





P 

N 

c 

S 

S 

1 

C 






© 


bytes | 1 


NOTES: 
© 

© 

© 


Symbol work buckets after 
substitution 

Symbol work buckets before 
substitution 

Symbol work buckets for 
EXTRN and ENTRY 


irXSBLNITXSPTR 


© 


bytes I 1 


TXSPTR 


© 


Figure B4. Types 1 and 2 Work Buckets 


TXLSTG - Literal string number. Corres- 
ponds to entry in literal base table 


Byte 1 - 

Bit 0 TXWTYP . Work bucket type (must 
be one; 1 = type 2) . 

Bit 1 TXWLEN. Work bucket length (must 
be zero; 0=6 bytes) . 

Bit 2 TXSDOC. Symbol defined in DSECT 
or COM indicator'. 

Bit 3 TXSUBS. Value substituted 
indicator. 

Bit 4 TXLAS. Last symbol in operand 
indicator. 

Bit 5 TXSEXI . "Implied length exceeds 
256" indicator. 

Bits 6-7 TXSTPC . Adjective code. 

TXSLEN - Implied length. 

TXSESD - External symbol dictionary ID. 

TXSVAL - Value. If the value substituted 
indicator equals zero, the third byte 
of TXSVAL will contain a pointer to the 
symbol (relative to the beginning of the 
operand field) . The second byte will 
contain the symbol # length . 

TXSBLN - Symbol byte length. 

TXSPTR - Pointer to symbol in operand 
field. 

TXSESL - Last operand in EXTRN /ENTRY 
indicator. 


TXLDSP - Literal string displacement. If 
the value substituted indicator equals 
zero, the third byte of TXLDSP will con- 
tain a pointer to the symbol (relative 
to the beginning of the operand field) . 
The second byte will contain the symbol 
length . 

TXLLEN - Literal length attribute . 


DC, Literal DC, and PS Operation Code. If 
the operation code is one of these three 
types, one 15 -byte Type 3 work bucket will 
be created for each operand. See Figure 
B5 . Each operand work bucket will be 
followed by a six-byte work bucket for each 
symbol in the operand. 

Byte 1 - 


Symbol in Operand. If symbol table over- 
flow occurs, it is necessary to append one 
Type 2 work bucket for each symbol in the 
operand field, including symbols within 
literal specification fields. See Figure 
B4 . The order of work buckets corresponds 
to the order of the symbols in the operand 
field. CSECT , DSECT, and COM records will 
also be appended by a six-byte symbol work 
bucket . 


Bit 0 TXWTYP. Work bucket type (must 
be zero; 0 = type 3) . 

Bit 1 TXWLEN. Work bucket length 
(must be one; 1 = 15 bytes) . 

Bit 2 TXDPPI. DC previously processed 
indicator. 

Bit 3 TXDLMP . Length modifier present 
indicator . 
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Bytes 



Figure B5 . Type 3 Work Bucket 


TXDLEN - Total length. 

TXDUPL - Duplication factor. 

TXDCON - Number of constants. 

TXDPTR - Pointer to first byte of operand 
in text (relative to beginning of 
operand field) . 

TXDEXP - Exponent . 

TXDSCM - Scale modifier. 

TXDSYM - Symbol work buckets flag. 

TXDALN - Alignment 

TXDLMD - Length modifier type. 

0 - Byte 

1 - Bit 

TXDLNM - Length modifier value. 


Bit 4 TXDLAS . Last operand indicator. 
Bits 5-7 (Blank) . 

TXDTYP - Type, translated. See Table B5 . 

Table B5 . DC/DS Type Indicators for Type 3 
Work Buckets 


Hexadecimal 

Number 

Meaning 

00 

Character 


01 

Hexadecimal 

02 

Binary 


03 

Packed 


04 

Zoned 


05 

Double precision floating point 

06 

Single precision floating point 

07 

Full-word fixed point 

08 

Half-word fixed point 

09 

A-CON ->| 


0A 

Y CON 


0B 

V-CON 

1 Address Constants 

OC 

S-CON ^ 



Special Work Bucket . A special work bucket 
is used for TITLE, PUNCH, REPRO, and MNOTE 
edited text records 



The eight-byte fixed field is the same as 
that described under "Edited Text Record 
Fixed Field Format." The variable field is 
the same as that described under "Edited 
Text Record Variable Field Format." How- 
ever, in place of an appended fixed field 
is a special work bucket, as follows: 

Byte Count - The byte count of the edited 
operand for punching or printing. 

Edited Operand - The punch or print image 
in external code constructed from normal 
edited text in Phase F7 . However, if 
PUNCH or REPRO is output in Phase F7, 
the byte count of this field is zero. 


LTORG Statement Work Bucket. 


Bytes 4 

4 

4 

4 

4 

4 

4 

4 


L8 

L4 

L2 

LI 

N8 

N4 

N2 

N1 
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L8 - Total length of 8-byte chain. 

L4 - Total length of 4-byte chain. 

L2 - Total length of 2-byte chain. 

LI - Total length of 1-byte chain. 

N8 - Number of entries in 8-byte chain. 

N4 - Number of entries in 4 -byte chain. 

N2 - Number of entries in 2-byte chain. 

Nl - Number of entries in 1-byte chain. 


Tables 


Symbol Table 

The symbol table is a collection of symbols 
and literals with their associated attri- 
butes. It is built during Phase F7 . 

The symbol table remains in core storage 
as long as the space allocated will hold it. 
It is used by Phase F7 , Phase FI, and 
Phase F8. 

There are two types of entries -in the 
symbol table . 

1. Name entries. 

2. Literal entries. 

Name Entries. EQU, CCW, DC, DS, machine 
instructions, and LTORG , and external name 
entries EXTRN, START, CSECT, and DSECT . 
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Adjective code - 

Bit 1 Not used. 

Bit 2 1 - Pointer present. 

Bit 3 1 - XD complete (external 

definition) 

Bit 4 1 - LD complete (label 

definition) 

Bit 5 1 - Defined in DSECT or COM. 

Bits 6-7 External symbol dictionary 
type 

00 - CSECT 

01 - EXTRN 

10 - DSECT 

11 - NAME 


Value - present only in name entries. 

Length -' present only in name entries. 

Chain pointer - present only when a symbol 
with the same hash has been previously 
entered in the table. This pointer is 
the address of the previous entry. 


Literal Entries. 


Bytes 3 1 Variable 1 113 



External Symbol Dictionary 

External symbol dictionary items are gen- 
erated by START, CSECT, private code, COM, 
DSECT, external dummy sections, ENTRY, 
EXTRN, and V-type DC instructions. Formats 
are described below. 


Control Sections (CSECT) and External 
References (EXTRN) . 


Bytes 13 1 3 8 



Bytes 13 12 1 8 



Flag - Set to 1 to indicate completion of 
the item . 

Label definition ID - External symbol 

dictionary ID of the containing control 
section . 
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External Dummy References (ENTRY) . 



ESDNO - Used to refer to the DSECT if this 
item was generated by a Q-type address 
reference to a DSECT. It is zero if the 
item was generated by a DXD instruction. 

Alignment - One less than the number of 
bytes in the unit of alignment,, e.g., 

7 for double word alignment. 



ESD/ID - The external symbol dictionary ID 
number of the control section where the 
literal pool is located. 

Location - This is the relative address ob- 
tained from the statement work bucket 
attached to the associated LTORG 
statement . 


Cross Reference Dictionary Entries 
Bytes 8 1 2 2 3 1 



FLAGA - 

FO^g - Base symbol (type 1) 

Fl^g - Reference to symbol (type 2) 

F2 16 - Multiply defined symbol (type 3) 
FLAGB - 

0 - Absolute value 

Not 0 - External symbol dictionary ID 
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Literal Adjustment Table 


Bytes 13 13 1 313 



ESD/ID - External symbol dictionary identi- 
fication of the 3 bytes that immediately 
follow this byte. 

A - The adjusted assembler address of the 
beginning of the 8-byte string of 
literals whose pool is described by 
this table. 

B - Same as A, except as applicable to the 
4-byte string. 

C - Same as A, except as applicable to the 
2-byte string. 

D - Same as A, except as applicable to the 
1-byte string. 


NOti,: There is one such table for each 

LTORG statement or for the END assembler 
instruction in the program. 

Trailer - Indicates the end of the literal 
adjustment table. This format is as 
follows : 

Bytes 11 11 



PHASE F8 



Dictionary, Table, and Record Formats 









Table ID - Each group of 20 RLD entries is 
preceded by a 1-byte table identifier 
of 'OS 1 . 

Position ESD/ID - Number of the control 
section where the address constant is 
located . 

Relocation ESD/ID - Number of the control 
section where the symbol is defined. 

Flag - 

Bits 0-1 00 

Bits 2-3 00 - A-, Y-, and Q-type 

address constants. 

01 - V-type address constant. 
11 - CXD . 

Bits 4-5 Length of address constant 

minus one (L-l) 


Bit 6 External symbol dictionary 
(ESD) ID sign. 

0 - plus (+) 

1 - minus (-) 

Bit 7 0 - next entry on the same card 

has the same position ID 
and the same relocation ID. 

1 - next entry on the same card 
has a different position 
ID and/or relocation ID. 

NOTE: There is no carry-over from card 

to card. That is, the last entry on a 
card always has a 1 in bit position 7 
even if the first entry on the next card 
has identical position ID and relocation 
ID fields. 

Symbol address - Assembler assigned address 
of a symbol used in A-, Y-, or V-type 
address constants, or of the second 
operand of CCW. 
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APPENDIX C. CONTROL PROGRAM SERVICES 


Macro Instruction 

GET Reads logical records from files 

organized by the file definition 
macro instruction. 

PUT Writes logical records into files 

organized by the file definition 
macro instruction. 

READ Reads the next sequential physical 

record from a file organized by 
the file definition macro DTFMT 
(define the file for magnetic 
tape) . 

WRITE Writes a physical record or a 

portion of a physical record onto 
a file organized by the file 
definition macro DTFMT. 

NOTE: DOS with TWFs uses DTFMT and DOS 

with DWFs uses DTFSD. 

CHECK Waits (if necessary) for the com- 
pletion of a READ or WRITE opera- 
tion and detects errors and 
exceptional conditions. 

NOTE Obtains the relative position of 
the last physical record that was 
read or written from a specified 
file. 


Macro Instruction 

POINTR Repositions a file so that the 
next read operation involves a 
record previously identified by 
a NOTE macro instruction. 

POINTW Repositions a file so that the 
next write operation involves 
a record previously identified 
by a NOTE macro instruction. 


POINTS Repositions a file to the first 
record. 


OPEN Makes a file available for use. 


CLOSE Makes a file unavailable for use. 


FETCH Loads and transfers control to 

another phase of the assembler. 

LOAD Loads a phase or program segment 

and returns control to the caller. 

CNTRL Performs certain physical, non- 

data operations on the device as- 
sociated with the specified file, 
e.g., rewind file. 
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APPENDIX D. ASSEMBLER ORGANIZATION 


The physical organization of the assembler 
differs somewhat from the logical organi- 
zation described in this manual. This 
appendix summarizes the physical organiza- 
tion of the assembler and correlates it 
with the logical organization. 

The first eight bytes of each core image 
phase is the phase identifier. It indicates 
the phase, version number, and level number 
of the assembler. 

Table Dl is an annotated Linkage Editor 
map. It was produced by a DOS system with 
a 10K supervisor. Note that the term 
"phase", as used throughout the manual, 


means "16gical phase". To DOS however, 
a phase is a unit of code — consisting 
of one or more Relocatable Library modules 
— which exists in the Core Image Library. 
The Linkage Editor map shows the core 
image phases and CSECTS which make up the 
assembler, the overlay structure, and the 
relationship of logical phases and physical 
structure. 

Table D2 is a storage allocation map 
which shows the relative location of the 
CSECTs , dictionaries and tables, and 
buffers. It also illustrates the overlay 
structure of the assembler. 
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Table Dl. Annotated Linkage Editor Map 


JOB LINK 

12/14/67 

DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 

ACTION TAKEN 

MAP 


LIST INCLUDE 

! JYASM 


LIST 

PHASE 

ASSEMBLY, S, NOAUTO 

LIST 

INCLUDE 

I JYFO, ( I JYFORTO, I JYFOMTM, I JYFOSDM, IJYFOGIO) 

LIST 

INCLUDE 

I JYCM 

LIST 

INCLUOE 

IJYIN 

LIST 

INCLUDE 

IJYF2 

LIST 

INCLUDE 

I JYF I 

LIST 

INCLUOE 

I JYFO, (IJYFOTDF) 

LIST 

PHASE 

ASSEM3, I JYCMORG, NOAUTO 

LIST 

INCLUDE 

I JYF 3 

LIST 

PHASE 

ASSEM3E, I JYCMORG, NOAUTO 

LIST 

INCLUDE 

IJYF3E 

LIST 

PHASE 

ASSEM7, IJYFOGIO, NO AUTO 

LIST 

INCLUDE 

I JYRTA 

LIST 

INCLUDE 

IJYF7I 

LIST 

INCLUDE 

I JYF7E 

LIST 

INCLUDE 

I JYF 7D 

LIST 

INCLUDE 

I JYF7X 

LIST 

INCLUDE 

I JYF7N 

LIST 

INCLUDE 

I JYF7V 

LIST 

INCLUDE 

IJYF7L 

LIST 

INCLUOE 

I JYF7G 

LIST 

INCLUDE 

I JYF7C 

LIST 

INCLUDE 

I JYF7S 

LIST 

PHASE 

ASSEMF I , I JYRTA04, NOAUTO 

LIST 

INCLUDE 

I JYRTB 

LIST 

INCLUDE 

I JYF 10 

LIST 

PHASE 

ASSEMF8, I JYFIO, NOAUTO 

LIST 

INCLUDE 

I JYF8I 

LIST 

INCLUDE 

I JYF8C 

LIST 

INCLUDE 

I JYF8M 

LIST 

INCLUDE 

I JYF8A 

LIST 

INCLUDE 

I JYF8P 

LIST 

INCLUDE 

I JYF 80 

LIST 

INCLUDE 

I JYF8V 

LIST 

INCLUDE 

IJYF8S 

LIST 

INCLUDE 

I JYF8L 

LIST 

INCLUDE 

IJYF8N 

LIST 

PHASE 

ASSEMFPP.IJYFIO, no auto 

LIST 

INCLUDE 

I JYFPP 

LIST 

INCLUDE 

I JYFO 

LIST 

PHASE 

ASSEMABT , I JYF I 0 » NOAUTO 

LIST 

INCLUDE 

I JYABT 

LIST 

ENTRY 

I JYF1BGN 
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Assembler Organization 
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Table Dl. Annotated Linkage Editor Map 


Logical PHASE XFr-AD LqcGrE HIc 0R £ gSK-AD ESD TYPE 

Phase 

C ASSEMBLY 0085E0 002800 0093D3 1C 7 2 CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
* ENTRY 

CSECT 


LABEL 

LOADED 

REl-FR 

CSECT Description 

I JYFORTO 

I JYF0S01 

I JYF0S02 

I JYF0S03 

I JYFOESW 

I JYFOABT 

002800 

002820 

0028B8 

002950 

00281C 

002808 

002800 

Master Root Segment — contains utility 

DTF's (DTFSD) and linkage to phase ABT 

I JYFOSDM 

002C08 

002800 

Disk work file I/O logic module (SDMODW) 


F0 


CSECT 

I JYFOMTM 

0029E8 002800 

Tape work file I/O logic module (MTMOD) 

CSECT 

I JYFOGIO 

002F88 002800 

Macro Generator I/O interface routines 

ENTRY 

I JYFOCHK 

002FE0 


ENTRY 

I JYFONTE 

003092 


ENTRY 

I JYFOPTR 

003040 


ENTRY 

I JYFOPTW 

003004 


ENTRY 

I JYFORED 

002FB4 


ENTRY 

I JYFOWRT 

002F88 




L 







CSECT 

I JYFOTDF 

009320 

008A48 

Alternate tape work file DTF's (DTFMT) 

J 

r 







CSECT 

I JYCMCQM 

0030D8 

0030D8 

Macro Generator Common — contains 

FCOM \ 

i 







* ENTRY 

I JYCMORG 

003130 


common constants and communications 

I 

L 











work area 









CSECT 

IJYJNIPT 

003C18 

003C18 

SYSIPT DTF (DTFCP) 









ENTRY 

I JYINBF1 

003C94 



FIN i 








CSECT 

IJJCPD2 

003D38 

003C18 

SYSIPT I/O logic module (CPMOD) 









ENTRY 

IJJCPD3 

003038 











CSECT 

IJYINLIB 

003E38 

003C18 

SYSSLB I/O logic (DTFSL) 


r 







CSECT 

I JYF2EDT 

004178 

004178 

Input and macro editing 









ENTRY 

I JYF2GLD 

0079D8 



F2 < 

! 







ENTRY 

I JYF2EDC 

006148 



] 

1 







ENTRY 

I JYF2DCL 

0072D0 











ENTRY 

I JYF2E0F 

007 7E6 



1 

L 







ENTRY 

I JYF2GSC 

00757E 



FI j 

r 







CSECT 

I JYF1INT 

0085D8 

0085D8 

Initialization 


t 







* ENTRY 

IJYF1BGN 

008 5E0 



F3 « 

[ ASSEM3 

003138 

003130 

004F9F 

ID 

5 

2 

CSECT 

IJYF300u 

003130 

003130 

Macro generation and conditional assembly 

F3E < 

[ ASSEM3E 

003138 

003130 

00349F 

ID 

8 

1 

CSECT 

I JYF3E00 

003130 

003130 

Macro Generator abort phase 


f 

ASSEM7 

004552 

002F88 

008C4F 

ID 

8 

2 

CSECT 

I JYRTA 

002F88 

002F88 

ACT equates and translate table 









CSECT 

IJJCPDV 

003090 

002F88 

SYSLNK, SYSLST, and SYSPCH logic 









ENTRY 

IJYRTA01 

0032A0 


module (CPMOD); SYSPCH and SYSLNK 

RTA i 








ENTRY 

I JYRTA02 

003388 


DTF's (DTFCP);utility file I/O routines; 









* ENTRY 

IJJCPDV l 

003090 


Assembler Control Table (ACT) 

: 








ENTRY 

IJJCPDO 

003090 











ENTRY 

I JJCPDON 

003090 











ENTRY 

I JYRTA03 

003420 




k. 







* ENTRY 

IJYRTA04 

004078 




r 







CSECT 

IJYF7I 

004078 

004078 

I/O subroutines 




:ct 

IJYF7E 

004C80 004C80 External Symbol Dictionary (ESD) 

ENTRY 

I JYF 7E02 

004CAC processor 

ENTRY 

I JYF7E04 

004D76 

ENTRY 

IJYF7E05 

004E48 

ENTRY 

I JYF7E07 

004F3A 

ENTRY 

I JYF7E08 

004FCE 

ENTRY 

I JYF7E06 

004FOE 

ENTRY 

I JYF7E09 

005070 

ENTRY 

IJYF7E10 

005 OFA 

ENTRY 

IJYF7E11 

005158 

ENTRY 

IJYF7E12 

005 IE 8 

ENTRY 

I JYF7E03 

004D04 

ENTRY 

I JYF7E01 

004C80 

ENTRY 

IJYF7E13 

005238 


CSECT 

CSECT 


IJYF7D 

IJYF7X 


005628 005628 DC/DS evaluation routine 

006498 006498 GET statement 




CSECT 

IJYF7N 

006EE8 

006EE8 

AUTOTEST processor 

CSECT 

IJYF7S 

008910 

008910 

Symbol Table Processor 

ENTRY 

I JYF7SND 

008C50 



ENTRY 

I JYF7S01 

008910 



ENTRY 

I JYF7S02 

008916 



ENTRY 

IJYF7S03 

008AEC 
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Table Dl. Annotated Linkage Editor Map 


Logical 

Phase 


F7 


FI 


F8 


FPP 


ABORT 


PHaSe 

4 

i 




ASSEMFI 


f ASSEMF8 




C ASSEMFPP 


l 


^ ASSEMABT 


x f r-a 0 

LOCORE 

HICORE 

DSK-A0 

E S o type 

CSECT 

LABEt 

IJYF7V 

loaded 

0071B8 

REL- Fr 

007 IB 8 






CSECT 

I jtF7L 

G07A68 

007A68 






CSECT 

I JYF7G 

007B38 

007B38 






CSECT 

IJYF7C 

007C30 

007C30 

0047A8 

004078 

006ADF 

IE 5 

2 

CSECT 

ENTRY 

ENTRY 

I JYRTB 

I JYRTB01 

I JYRTB02 

004078 
004 IDO 
00435C 

004078 






CSECT 

IJYFI0 

0047A0 

0047A0 

004B94 

0047A0 

009393 

IE 9 

1 

CSECT 

IJYF8I 

0047A0 

004 7A0 






CSECT 

ENTRY 

I JYF8C 
IJYF8C01 

004D78 

004FA4 

004D78 






CSECT 

ENTRY 

ENTRY 

I JYF8M 

I JYF8M01 
IJYF8M02 

005140 

005748 

005926 

005140 






CSECT 

ENTRY 

I JYF8A 

I JYF8A01 

005DE8 

006658 

005DE8 






CSECT 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

I JYF8P 

I JYF8P03 

I JYF8P02 

I JYF8P04 

I JYF8P01 

006978 

007150 

006FBE 

0073AF 

006C12 

006978 






CSECT 

ENTRY 

ENTRY 

I JYF8D 

I JYF8001 

I JYF8D02 

007758 
008 14E 
0082BC 

007758 






CSECT 

I JYF8S 

008CD0 

008CD0 






CSECT 

IJYF8V 

008458 

008458 






CSECT 

IJYF8L 

008D90 

008D90 






CSECT 

IJYF8N 

008E60 

008E60 






CSECT 

I JYF8P05 

0075C8 

006978 

0047A8 

0047A0 

009A1F 

IF 5 

1 

CSECT 

IJYFPP 

0047A0 

0047A0 






CSECT 

ENTRY 

IJYFD 

I JYFDEND 

008270 

009A20 

008270 

0047A8 

0047A0 

0040C6 

20 1 

2 

CSECT 

I JYAB0RT 

004 7A0 

0047A0 






CSECT 

I JZM00L2 

004C20 

0047A0 






CSECT 

IJJCPD1N 

004C40 

0047A0 


CSECT Description 
Expression evaluation routine 

Error logging routine 

Literal DC generator 

Mainline control routine 

RTB — contains SYSLST DTF (DTFCP) 
and output routine 

ESD writing routine 
Initialization and I/O routines 
Mainline control routine 

Machine operation processor 

Assembler operation processor 

Listing and object deck output 
routi ne 


DC evaluation routine 

Symbol Table subroutine 
Expression evaluation subroutine 
Log error subroutine 

Floating/fixed-point conversion routine 
Output routine constants 
Cross-Reference and RLD processor 
Error record processor 

Assembly abort routine and Syslog DTF 
(DTFCN) 

DTFCN logic portion 

SYSLST I/O logic module (CPMOD) 


Appendix D. Assembler Organization 
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Table D2 


Storage Allocation Map 


DURING DURING 

F! F2 



DURING 

F3 


IJYFORTO 

IJYFOSDM 

IJYFOMTM 


IJYFOGIO 


IJYCMCOM 

(partial) 

IJYF3000 

OR 

IJYF3EOO 


GLOBAL 

AND 

LOCAL 

DICTIONARY 

WORK 

SPACE 


PPEND 


BUFFER 3 
BUFFER 4 


BUFFER 1 
BUFFER 2 


DURING 

F7 


IJYLST 


IJYFORTO 

IJYFOSDM 

IJYFOMTM 


IJYRTA 

IJJCPDV 


F7 


BUFFER 1 


BUFFER 2 


BUFFER 3 


BUFFER 4 


ERROR BUFFER 

JLBT 

ESD SEG.RES.TBL 


SYMBOL 
TABLE 
8.7 K 
MIN. 



PPEND 


IJYFORTO 

IJYFOSDM 

IJYFOMTM 


IJYRTA 

IJJCPDV 


ESDSEG.RES.TBL 


SYMBOL 

TABLE 



IJYFORTO 

IJYFOSDM 

IJYFOMTM 


IJYRTA 

IJJCPDV 


SYMBOL 

TABLE 


DURING 

FPP 


IJYFORTO 

IJYFOSDM 

IJYFOMTM 


IJYRTA 

IJJCPDV 


XREF 

SORT 

BUFFER 


DURING 

ABORT 


IJYFORTO 

IJYFOSDM 

IJYFOMTM 


IJYABORT 
IJZM001 2 
IJJCPDIN 


NOTES: 

3625 Bytes — Max. Buffer Size 

64K Bytes — Max. Dictionary and Table Sizes 

PPEND — Upper limit of core available to Assembler 
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APPENDIX E. DICTIONARY AND TABLE CONSTRUCTION TECHNIQUES 


HASH TABLE 

A hash table is used by the assembler for 
inserting or locating variable or fixed- 
length record entries in dictionaries and 
symbol tables. A hash table consists of 
fixed-length address entries (called point- 
ers) which point to locations in the dic- 
tionaries/tables. The range of the hash 
table is the number of such pointers that 
can be placed in the space reserved for the 
table. When it is desired to make an entry 
in the dictionary/table, e.g., enter a 
global symbol declaration, or to locate an 
entry in the dictionary/table, e.g., to ob- 
tain the relative address of a symbol, the 
associated symbol or other datum must first 
be randomized to produce an index number. 
This is called hashing. (Operation codes 
are included in the generation of index 
numbers for the macro dictionaries.) The 
randomizing algorithm is such that the re- 
sulting index number will be a whole number 
between zero and the hash table range, 
minus one. This index is then used 
to index into the hash table and inspect 
the associated pointer (address entry) in 
the hash table. This entry will be zero 
until a record entry, randomizing to this 
index number, has been entered in the 
dictionary/ table . Records are entered in 
the dictionary/table sequentially, and a 
dictionary/table pointer, containing the 
next available address, is used for in- 
serting new records. Several different 
data (called synonyms) may randomize to the 
same index number. Because this index num- 
ber points to an associated entry in the 
hash table where only one address can be 
stored, chaining must be used to enter or 
locate the synonym records. 


CHAINING 

Chaining is a technique whereby an entry 
to one record points to the next record, 
and so on. Forward chaining and backward 
chaining are the two types of chaining 
used by the assembler. 

In forward chaining, a hash table pointer 
entry points to the first entry of a chain. 
The first field of each entry contains a 
chaining address pointing to the next entry 
in the chain. The last entry in each chain 
has all zeros in the chaining address field. 

In backward chaining, a hash table point- 
er entry points to the last entry of a 
chain. The first field of each entry con- 
tains a chaining address pointing to the 


preceding entry in the chain. The first 
entry in each chain has all zeros in the 
chaining address field, or, in certain 
applications, the pointer field is 
eliminated in the first entry. 


Forward Chaining Techniques 

The symbol, literal, or other datum whose 
record is to be entered is hashed to obtain 
an index number. This number is used to 
point to the associated address entry in 
the hash table. The hash table entry will 
be zero if no other item has yet hashed to 
the same index number, i.e., this is the 
first record entry for this index number. 

If this is not the first entry to this 
index number, the hash table will contain 
the address of the first record entered in 
this chain. The record at that address 
will be checked for duplication. If there 
is no duplication, the content of the chain 
pointer field is checked in the record. Thi 
pointer will be either a chaining address 
pointing to the location of the next record 
in the chain, or zero. Zero indicates that 
this is the last (or only) record in the 
chain. If the pointer field contains a 
chaining address, the next record is check- 
ed for duplication. Again, if there is no 
duplication, it is checked for a zero chain 
pointer (zero = last record in the chain) . 
The scan is continued in this manner until 
a duplication is found, when the procedure 
is terminated without making a new entry, 
or until a zero pointer is reached, in 
which case the new record is entered in 
the dictionary/table. In the latter case, 
the zero pointer is replaced with the 
address of the dictionary/table pointer, 
i.e., the address of the next available 
dictionary /table location, the new record 
is entered at this location with a zero 
pointer, and the diction ary /table pointer 
is updated with the length of the current 
entry . 

The procedure used to locate records in 
the dictionaries/tables is the same as 
entering, except that when the compared 
records are equal, the pertinent informa- 
tion is extracted, or the value informa- 
tion is inserted, as the case may be. See 
Figure El. 


Backward Chaining Techniques 

The record to be entered is hashed to an 
index number. This index number is used 
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hashed 


SYMBOL = "IDENTIFY" ——♦INDEX NUMBER = 5 
to 

DICTIONARY POINTER 

f^l 


HASH TABLE 


■ 

1 

1 

■ 

■ 


AAA 

■ 

■ 

■ 

■ 

■ 

■ 



■ 

■ 















ABC 

First Record 



AAA ^ 










BCD 

Second Record 



ABC — — ^ 










000 

Third Record 

— DEF 


BCD -— ^ 











Figure El. Hash Table and Forward Chaining 


to point to an associated address in the 
hash table. The hash table entry will be 
zero if no other record has yet hashed to 
this index number. If this is not the 
first entry, the hash table will contain 
the address of the last record entered, 
i.e., the most current entry. The record 
at this address will be checked for dupli- 
cation. If there is no duplication, the 
content of the record's chain pointer field 
is checked. This chain pointer field con- 
tains the address of the previous entry in 
the chain, or zero, if it is the first (or 
only) entry in the chain. 

The chain is scanned starting with the 
last entry and continuing through the 
first entry, or until a duplicate record 
is encountered. In the latter case, the 


scan is terminated and the record is not 
entered. If there is no duplication, the 
address of the last record in the chain is 
placed in the chaining address field of 
the record entered. The address of the 
dictionary /table pointer, i.e., the address 
of the next available location in the 
dictionary /table area, replaces the pointer 
in the hash table, and the record is in- 
serted at this address in the dictionary/ 
table . 

The dictionary /table pointer is updated 
by the length of the record just stored to 
indicate the new available storage address. 

The procedure to locate records in the 
dictionaries/tables is the same as enter- 
ing, except that when the compared records 
are equal, the pertinent information is 
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extracted, or the value information is 
inserted, as the case may be. See Figure 
E2. 


Chaining Usage 

In Phase F2, forward chaining is used in 
building the global dictionary. However, 
in addition to the many forward chains 
created, all macro name entries in the 
global dictionary are linked together 
by backward chaining. Therefore, each 
macro entry has two pointer fields . The 
first field points forward to the next 
record in the chain, which originated 


from the same hash table pointer, and the 
last field points backward to the preceding 
macro entry in the macro chain. The first 
macro entry in the macro chain has a zero 
macro chain pointer. 

Backward chaining is also used in Phase 
F2 to built local dictionaries. 

In Phases F7 and F8, the symbol table 
area is shared by symbols and literals 
in a random fashion. Symbol entries are 
reached through pointers located in the 
symbol hash table and are chained backwards . 
The first symbol entry has no pointer 
field. Literal entries are reached through 
the literal hash table and are chained 
forward. 


hashed 

SYMBOL = " IDENTIFY” — INDEX NUMBER = 5 , 


DEF 


HASH TABLE 



T 




BCD 

























First Record 000 



AAA ^ 










Second Record 

AAA 



ABC — ^ 










Third Record ABC 

DEF- 


BCD ^ 











Figure E2 . Hash Table and Backward Chaining 
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APPENDIX F. INTERNAL ASSEMBLER CODE TABLE 


All characters in source statements are 
translated to an internal hexadecimal 
coding. Translation is done to facilitate 
comparisons and some arithmetic operations 
and to obtain a degree of character set 
independence . 

The internal language is translated 
back to external code before output. Bit 
configurations not representing DOS/360 
Assembler Language characters, e.g., valid 
overpunch characters in fields PUNCHed or 
REPROed, are not affected by the transla- 


Standard 

Graphic 

Symbol 

Machine Internal 
Hexadecimal 

Code 

Standard 

Graphic 

Symbol 

Machine Internal 
Hexadecimal 

Code 

0 

00 

Q 

1A 

1 

01 

R 

IB 

2 

02 

S 

1C 

3 

03 

T 

ID 

4 

04 

U 

IE 

5 

05 

V 

IF 

6 

06 

w 

20 

7 

07 

X 

21 

8 

08 

Y 

22 

9 

09 

z 

23 

A 

0A 

$ 

24 

B 

0B 

# 

25 

C 

OC 

@ 

26 

D 

00 

+ 

27 

E 

0E 

- 

28 

F 

OF 

★ 

29 

G 

10 

/ 

2A 

H 

11 

, 

2B 

1 

12 

= 

2C 

J 

13 

& 

2D 

K 

14 


2E 

L 

15 

( 

2F 

M 

16 

) 

30 

N 

17 

1 

31 

O 

18 

blank 

32 

P 

19 




tion. (They are translated into themselves.) 
See Table, below. 

Application of the translate table also 
allows the user to assemble programs written 
in other than DOS/360 Assembler Language 
by providing a different translate table 
for the conversion. 

The collating sequence of the internal 
language differs from the standard collating 
sequence. In the standard collating sequence, 
numeric values are higher than alphabetic 
or special characters. 
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APPENDIX G. SWITCHES 


These switches are set in the code of the 
macro generator and assembler phases. 

They do not appear in any dictionaries, 
tables, or records. 


PHASE F3 SWITCHES 


MISWIT 

Bit No. Hex. Sw . 

0 X’80 1 Not used 

1 X'40' 0 - Do another pass on 

macro instruction 
operands 

1 - 2nd pass completed 
on macro instruction 
operands 

2 X'20’ 1 - Macro instruction 

being processed 

3 X'10' 1 - Entry is a sublist 

4 X'08’ 0 - Entry is to be made 

from prototype 
1 - Entry to be made 

from macro instrucion 

5 X , 04' 1 - Nest aborted; no 

room to store 

6 X'02' 1 - Macro aborted during 

build of parameter 
table 

7 X'01’ 1 - Max. record exceeded 

(used by WRITE rou- 
tine) 


SWITCH 

Bit No. Hex. Sw. 

2 X ' 20 1 0 - NOTE in IOMAC Routine 

1 - No need to NOTE in 
IOMAC routine 

4 X 1 08 ' 0 - Use PNTR in IOMAC 

routine 

1 - Do logical POINTW in 
IOMAC routine 

7 X'01' 1 - End of Expr. 1 or 

Expr. 2 of substring 
has been reached 


NESTSW 

Bit No. Hex. Sw. 

6 X'02' 1 - Set when a new block 

has been read when 
processing a macro 
instruction. 


7 X'01' 1 - Macro instruction 

mode - set when a 
macro instruction is 
encountered so that 
nesting may be 
recognized. 


SUBSW 

Bit No. Hex. Sw. 

6 X'02' 1 - Set when MODESW has 

been saved. Char, 
or arith. mode must 
be saved when a sub- 
scripted left paren- 
theses is encountered 
so that this mode may 
be restored after the 
subscript dimension 
is computed. 

7 X'01' This must always be 

initialized to the 
value of 1, used when 
original MODESW is 
restored. 


MODESW 


Bit No. Hex. Sw. 


0 

X'80' 

1 - 

SYSLST to provide 
alternate to symbolic 
parameters 

1 

o 

X 

1 - 

2 expressions in 
SYSLST 

2 

X' 20 1 

1 - 

Concatenation has 
occurred in string 
area 

3 

X'10' 

1 - 

Error switch in 
substring routine - 
signal to use 
null string 
later on 

4 

X 

o 

00 

1 - 

First time switch - 
set after first 
char, string 
has been placed 
in string area 

5 

X ' 04 ' 

1 - 

Substring mode 

6 


Not 

available for use 

7 

X'01' 

0 - 

arithmetic expr. 


mode 

1 - character 
expression 
mode 
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PHASE F7, FI, F8 AND FPP SWITCHES 


Name 

Comment 

Name 

Comment 

CTLOC 

Current Location Counter 

CTPGLNCT 

Page Line Count 

CTSEQN 

Current Statement Sequence Number 

CTMRSRTN 

MRS Return 

CTLEN 

Current Statement Length 

CTZERO 

Two Full Words of Zeroes 

CTITLE 

First Title Name, Opnd. Len, Opnd. Ptr. 

CTWORK 

256 Byte Work Area 

STVALU 

Value For STPUT Entries 

CTONWP 

Next Write Pointer On OVF 1 

CPRIME 

Prime Divisor For Symbol Table 

CTRXF 

First XRF Block PTR On OVF1 

CSTVAL 

Value From START card 

CTRLBT 

First LBT Block PTR On OVFl 

CTXLEN 

Text Block Length 

CTRERR 

First Error Block (PH8) 

CNOESD 

Number of ESDs 

CTCXRF 

XRF Block Count 

CENTCT 

Number of Entries 

CTCLBT 

LBT Block Count 

CLASID 

Last ID 

CTCRLB 

RLD Block Count 

CTNDID 

Next DSECT ID 

CTCERR 

Error Block Count (PH8) 

CESDNO 

Current ESD Number 

CTCLAT 

LAT Block Count On OVF2 

CSGCTR 

ESD Resident Segment Counter 

CTLALN 

LAT Length Indicator 

CPCNO 

Private Code ESD Number 

CTLITA 

Current Literal Pool String Lengths 

CCMNO 

Common ESD Number 

CTLITB 

Current Literal Pool String Counts 

STLONG 

Length Attribute For STPUT Entries 

CTXSAV 


ESSGSZ 

ESD Segment Size 

CTFSTN 

ESD No. of First CSECT 

CESDID 

Current ESD ID 

CTDATE 

Date For Listing 

CTPCSW 

Private Code Switch 

CTLINECT 

Print-Line Count 

CTCMSW 

Common Switch 

CADJTB 

Adjustment Table Base 

CFSTID 

CTYPE 

First CSECT ID 

Current CSECT Type 

RR2SWH 

RR2 Instruction Type Switch 

CTLIT2 

LTORGOr END Card Switch 

ERSWH 

ERROR Switch 

ESDID 

Assigned ESD ID 

SPACSW 

SPACE Switch 

ADJCOD 

Adjective Code 

EJCTSW 

EJECT Switch 

CTALIN 

Alignment Code 0-B, 1-H,3-F,7-D 

REPSW 

REPRO Switch 

CTITSW 

Iteration Switch 

CCRDCT 

Card Count 

CTPDS1 

Defined Symbols Req. For IEUF7V 

CTLATL 

Literal Adj. Tab.- Last Byte + 1 

CTCLSI 

First Pass Indicator 

ENDSWH 

END Switch 

CTLITI 

Literal Pool Complete During Subst, 

FBOPRN 

Operand Pointer 

CTERRI 

Error Record Indicator 

CTLATB 


CTPH7C 

Phase F7 Complete Indicator 

F8CADJ 

Current Adjustment 

CTSYMF 

Symbol Table Full Indicator 

ALIGN4 

For Aligning 

CTPCHI 

Punch Option Indicator 

F8ALLB 

Full Word Of Bits 

CTCGOi 

CGO Option Indicator 

F83BYT 

3 Bytes Of Bits, Low Order 

CTITLI 

First Title Processed Indicator 

F82BYT 

2 Bytes Of Bits, Low Order 

CTLSTI 

List Option Indicator 

F81BYT 

1 Byte Of Bits, Low Order 

CTGENI 

List Gen.Option Indicator 

F8PON 

Print Option ON-OFF Switch 

CTERLI 

List Error Option Indicator 

F8PGEN 

Print Option GEN-NOGEN Switch 

CTXRFI 

X-Ref. Option Indicator 

F8PDAT 

Print Option DATA-NODATA Switch 

CTTSTI 

TESTRAN Option Indicator 

F8ZERO 

One Full Word Of Zero 

CTSDVI 

Self Defining Value Indicator 

F8INST 

16 Byte Instruction Bldg. Area 

CTLCRI 

Location Counter Reference Indicator 

F8ZRO 

One Full Word Of Zero 

CTMODE 

Mode Indicator 

PYRSW 


CBDNO 

Blank DSECT ESD No 

F8YDC 


CBDSW 

Blank DSECT ID No 

CTESRN 

ESD Seg. Count 
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APPENDIX H. GLOSSARY 


The terms in this glossary are defined 

relative to their use in this publication 

only. These definitions may differ from 

those in other publications. 

Assemble: To prepare an object language 

program from a symbolic language pro- 
gram by substituting machine operation 
codes for symbolic operation codes and 
absolute or relocatable addresses for 
symbolic addresses. 

Assembler Operation Code: A hexadecimal 
one-byte code assigned to all assembler 
instructions by programming systems 
for internal use. 

Attributes: Characteristics of certain 

elements in statements processed by the 
assembler. There are six attributes: 
type, length, scaling, integer, count, 
and number. The macro generator proces- 
ses all of them; the assembler portion, 
only the length attribute. 

Concatenation: The process of linking to- 

gether, or chaining, or joining. 

Conditional Assembly: The selective as- 
sembly of those source language state- 
ments that satisfy predetermined con- 
ditions, e.g., tests of values that may 
be defined, set, or changed during rhe 
course of the assembly procedure. The 
conditional assembly precedes the 
regular assembly procedure. Conditional 
assembly allows a programmer to specify 
assembler language statements which may 
or may not be assembled depending on 
conditions evaluated at assembly time. 

Control Program: A collective term for the 
operation and resource controlling rou- 
tines of the operating system. 

Control Section: The smallest separately 
relocatable program unit, always loaded 
into a contiguous main storage area. A 
control section is an entity. Its name, 
if there is one, is defined by a CSECT 
or START statement. 

Core Image Module: An executable logical 
unit of coding. It is the output of the 
linkage editor in a format suitable for 
loading into main storage. 

Data Set: A named collection of data. 

Device Independence: The ability to request 
input/output operations without regard 


to the characteristics of the input/ 
output devices. 

Direct Access: Retrieval or storage of data 
by a reference to its location on a vol- 
ume, rather than relative to the prev- 
iously retrieved or stored data. 

DTF (Define The File) Table: A region in 
storage used for communi cation between 
the source program, the control program, 
and the access routines. A control 
block containing information for access 
routines pertinent to data storage and 
retrieval . 

Edited Text: Source text with appended worx 
and code fields which map and describe its 
attributes . 

External Symbol Dictionary: Part of an 
object or load module that identifies 
external names (control sections, ENTRY 
statements, common areas, and private 
codes) and external references (EXTRN 
statements and V-type address constants) 
occurring in the module. 

External Symbol Dictionary Identifier (ESD- 
ID) : A one-byte number identifying a 

control section or other external symbol 
dictionary entry. 

Global Dictionary: A core storage resident 
table containing machine and assembler 
operation codes, macro mnemonics, and 
global variable symbols. 

Global Variable Symbols: Global SET sym- 
bols (the only type of global variables) 
that communicate values between state- 
ments in one or more macro definitions 
and statements outside macro definitions. 

Hashing: Generating an address between two 

limits by randomization. 

Hash Table: A table, accessed through 

generated numbers (i.e., randomization), 
pointing to entries in a dictionary or 
table . 

Inner Macro Instruction: A macro instruc- 
tion used as a model statement in a 
macro definition. 

Linkage Editor: A program that produces a 
load module from object and/or load 
modules. The output load module is in 
a format suitable for loading and 
execution under the control of the 
control program of the operating system. 
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Literal : A representation of a constant 

which is entered into a program by 
specifying the constant in the operand 
of the instruction in which it is used. 
The assembler stores the value specified 
by the literal in a literal pool, and 
places the address of the storage field 
containing the value in the operand 
field of the assembled source statement. 


Literal Pool: A portion of the object pro- 
gram containing literals processed by 
the assembler. 

Local Dictionary: A table containing 
sequence symbols, ordinary symbols, 
local SET symbols, and macro instruction 
parameters . 


Local Variable Symbols : Symbols that com- 
municate values between statements in 
the same macro definition, or between 
statements outside macro definitions. 

The following are local variable symbols : 

1. Symbolic parameters 

2 . Local SET symbols 

3. System variable symbols 


Logical Record: A record from the stand- 
point of its content, function, and use 
rather than its physical attributes; 

i.e., one that is defined in terms of 
the information it contains (contrasted 
with Physical Record) . 


Macro Definition: A set of statements that 
provides the assembler with the mnemonic 
operation code and the format of the 
macro instruction, and the sequence of 
statements the assembler generates when 
the macro instruction appears in the 
source program. 

Macro Instruction: A source program state- 
ment for which the assembler generates 
a sequence of assembler language state- 
ments. Three types of macro instruc- 
tions may be written: 

1. Positional - operands in fixed order. 

2. Keyword - operands in variable order. 

3. Mixed-mode - combination of above. 


Macro Instruction Prototype: The second 
statement of every macro definition; it 
specifies the mnemonic operation code and 
the Format of all macro instructions that 
refer to the macro definition. 

Main Storage: All addressable storage from 
which instructions can be executed or 
from which data can be loaded directly 
into registers. 

Model Statements: The macro definition 
statements from which the desired se- 
quences of assembler language statements 
are generated. 

Module: A logical unit of coding that per- 

forms a function or several related 
functions . 

A source module is a set of source 
language statements prepared for input 
to a language translator. 

An object module is the output of a 
language translator (e.g., assembler). 

It is a machine language program in re- 
locatable format. A load module is the 
output of the linkage editor. It is in 
relocatable and executable format. 

A module is composed of one or more 
sections (see Control Section) . 

Object Program: A machine language pro- 
gram which is the output after trans- 
lation from the source program. 

Open Code: All source statements except 
those generated from macro definitions. 
Open code is read from SYSIPT. 

Ordinary Symbol : One alphabetic character 
followed by zero through seven alpha- 
meric characters. 

Outer Macro Instruction: A macro instruc- 
tion that is not used as a model state- 
ment in a macro definition. 

Overlay: A section of a program loaded into 
main storage, replacing all or part of 
a previously loaded section. 

Physical Record: A record from the stand- 
point of the manner or form in which it 
is stored, retrieved, and moved; i.e. , 
one that is defined in terms of physical 
qualities or is meaningful with respect 
to access (Contrasted with Logical 
Record) . 
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Pointer: An address used to point to a 

table, dictionary, or data set entry. 

Position Identifier: A two-byte value 

specifying the sign and external symbol 
dictionary identifier (ESD-ID) of the 
control section in which a relocatable 
constant occurs. 

Prototype Statement : See Macro Instruc- 
tion Prototype. 

Record: A general term for any unit of 
data that is distinct from all others 
when considered in a particular context. 

Relocation Dictionary (.RLD) : Part of an 
object or load module produced by the 
assembler that identifies address con- 
stants in the module. 

Relocation Identifier: A two-byte value 
specifying the sign and external symbol 
dictionary identifier (ESD-ID) of an 
item referenced by a relocatable constant. 

Source Program: A series of statements in a 
source language that is input to the 
translation process. 


Subsetted Global Dictionary: The global 
dictionary — passed to Phase F3 -- 
which contains only global variable 
symbols. The machine and assembler 
operation codes and the macro names are 
no longer needed and have been removed. 


Subsetted Local Dictionary: A local 

dictionary — passed to Phase F3 — after 
it has been sorted on the little "a" 
pointer and the symbols, big "A" pointer, 
and little "a" pointer have been re- 
moved. 

Synonyms: Two or more symbols that result 

in the same address when they are hashed 
by a hashing routine. 

System Macro Instructions : Macro instruc- 
tions that correspond to macro defini- 
tions prepared by IBM. 

Test Translator (AUTOTEST) : A facility 

that allows various debugging procedures 
co be specified in assembler language 
programs. 

Utility Data Set: A data set reserved for 
intermediate results. 

Variable Symbol: A type of symbol that is 
assigned different values by either the 
programmer or the assembler, thus allow- 
ing different values to be assigned to 
one symbol. There are three types of 
variable symbols: symbolic parameters, 
system variable symbols, and SET symbols. 
Variable symbols consist of an ampersand 
followed by an ordinary 1-7 character 
symbol . 

Work Bucket: Fields attached to certain 
types of records for holding internal 
information during processing. 
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